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ABSTRACT 


This  thesis  Is  a  presentation  of  several  alternative 
acoustic  filter  designs  which  allow  Space  Shuttle  payload 
experiment  Initiation  prior  to  launch.  This  Initiation  Is 
accomplished  Independently  of  any  spacecraft  services  by 
means  of  a  itatched  band-pass  filter  tuned  to  the  acoustic 
signal  characteristic  of  the  Auxiliary  Power  Unit  (APU) 
which  Is  brought  up  to  operating  RPM's  approximately  five 
minutes  prior  to  launch. 

These  alternative  designs  Include  an  analog  filter  built 
around  operational  amplifiers,  a  digital  HR  design 
Implemented  with  an  INTEL  2920  Signal  Processor,  and  an 
Adaptive  FIR  Weiner  design.  Working  prototypes  of  the  first 
two  filters  are  developed  and  a  discussion  of  the  advantage 
of  the  2920  digital  design  Is  presented. 


TABLE  OF  CONTENTS 


I .  INTRODUCTION -  9 

A.  BACKGROUND -  9 

B.  STATEMENT  OP  GOAL -  10 

C.  DISCUSSION  OF  THE  GENERAL  SOLUTION  ALGORITHM -  12 

II*.  THE  AUXILIARY  POWER  UNIT  (APU)  AND  THE  SHUTTLE 

PAYLOAD  BAY  PRE-LAUNCH  ACOUSTIC  ENVIRONMENT -  15 

A.  APU  DESCRIPTION -  15 

B.  APU  MISSION  DUTY  CYCLE -  15 

C.  STS  PAYLOAD  BAY  ACOUSTIC  ENVIRONMENT 

MEASUREMENT  INSTRUMENTATION -  19 

D.  STS  PAYLOAD  BAY  PRE-LAUNCH  ACOUSTIC 

ENVIRONMENT -  21 

III.  ANALOG  FILTER  DESIGN  THEORY  AND  IMPLEMENTATION -  26 

A.  PRACTICAL  DEVELOPMENT  OF  AN  ANALOG  BAND-PASS 

FILTER -  26 

1 .  Low-Pass  to  Band-Pass  Frequency 

Transformation -  28 

2.  600  Hz  Elliptic  Band-Pass  Filter  Design -  32 

3.  Analog  Band-Pass  Filter  Simulation -  37 

B.  HARDWARE  IMPLEMENTATION -  41 

1.  Biquad  Analog  Band-Pass  Filter -  41 

2.  Follow-Up  Logic  Circuitry -  44 

C.  ANALOG  BAND-PASS  FILTER  IMPLEMENTATION  RESULTS-  47 


5 


IV.  DIGITAL  FILTER  DESIGN -  51 

A.  ANALOG  BAND-PASS  TO  DIGITAL  BAND-PASS 

FILTER  DESIGN -  54 

B.  DIGITAL  BAND-PASS  FILTER  SIMULATION -  60 

C.  DIFFERENCE  EQUATION  REPRESENTATION -  63 

D.  DIFFERENCE  EQUATION  IMPLEMENTATION  SIMULATION —  66 

1.  Digital  Filter  Impulse  Response -  66 

2.  Digital  Filter  Frequency  Response -  69 

,  E.  ANTI-ALIASING  FILTER -  70 

V.  THE  INTEL  2920  ANALOG  SIGNAL  PROCESSOR -  72 

A.  OVERVIEW -  7  2 

B.  2920  FUNCTIONAL  DESCRIPTION -  75 

C.  THE  SDK-2920  DEVELOPMENT  SYSTEM -  76 

D.  A  2920  DIGITAL  FILTER  IMPLEMENTATION -  80 

1 .  2920  Assembly  Language  Program -  80 

2.  2920  Hardware  Implementation -  82 

E.  2920  DIGITAL  FILTER  IMPLEMENTATION  RESULTS -  84 

VI.  ALTERNATIVE  FILTER  CONCEPTS -  88 

A.  A  WIENER  FILTER  DESIGN — THE  ADAPTIVE  LINEAR 

COMBINER -  89 

1.  Theoretical  Foundations -  90 

2.  A  Software  Simulation -  95 

B.  AN  ANALOG  SPEECH  PROCESSING  SCHEME -  98 

VII.  CONCLUSION -  101 

APPENDIX  A:  APU  HOTFIRE  TEST  RESULTS  (QUICK  LOOK  DATA)-  108 


6 


APPENDIX  B:  POWER  SPECTRAL  DENSITY  PLOTS  OF  THE  SHUTTLE 


CARGO  BAY  PRE-LAUNCH  ACOUSTIC  ENVIRONMENT—  121 

APPENDIX  C:  FORTRAN  PROGRAM  ABPDBP  AND  PROGRAM  OUTPUT —  146 

APPENDIX  D:  FORTRAN  PROGRAM  ABPFR -  161 

APPENDIX  E:  FORTRAN  PROGRAM  DBPFR -  164 

APPENDIX  F:  FORTRAN  PROGRAMS  S22I  (WITH  OUTPUT) 

AND  S22IG -  167 

APPENDIX  G:  FORTRAN  PROGRAMS  S22F  (WITH  OUTPUT)  AND 

S22FG  (WITH  GRAPHICAL  OUTPUT) -  176 

APPENDIX  H:  2920  ASSEMBLY  LANGUAGE  PROGRAM  SM2X2 -  188 

APPENDIX  I:  FORTRAN  PROGRAM  CTRANS2  AND  OUTPUT -  194 

APPENDIX  J:  FORTRAN  PROGRAM  FIR4 -  200 

APPENDIX  K;  FORTRAN  PROGRAM  FIR4SIM -  216 

LIST  OF  REFERENCES -  218 

INITIAL  DISTRIBUTION  LIST -  220 


ACKNOWLEDGMENT 


Many  persons  aided  me  in  the  development  of  this  thesis 
and  I  would  be  remiss  in  not  acknowledging  the  help  and 
support  of  those  whose  contributions  were  invaluable. 

Vicente  Garcia  offered  early  insight  and  suggested 
avenues  to  a  solution.  Bob  Yamamuro  of  Aerospace 
Corporation  assisted  me  in  the  initial  data  collection  and 
unselfishly  spent  several  evenings  of  his  own  time  in 
support  of  my  efforts.  Austin  Boyd  gave  assistance  with 
crucial  data  analysis  during  a  difficult  time  in  his  life. 
Professor  Rudy  Panholzer  was  a  talented  teacher  and 
supportive  advisor  throughout  my  stay  at  NPS.  Dr.  Bharat 
Madan  was  indispensable  to  me  as  an  expert  in  digital 
filters  and  all  aspects  of  the  2920  design  implementation. 
He  gave  me  many  hours  of  wise  coiinsel.  David  Rigmalden  was 
and  is  a  superb  and  supremely  patient  lab  technician. 

Thanks  to  all  the  NPS  Get  Away  Special  team  members  whose 
motivation  and  spirit  kept  me  honest.  And  finally  thanks 
and  love  to  Linda  Duncan-Hille  who  buoyed  my  spirits  at  all 
the  right  moments  with  her  abundant  joie  de  vivre. 

I  am  especially  grateful  for  the  help  that  each  and 
every  one  of  you  gave  me  during  this  research. 


I.  INTRODOCTION 


A .  BACKGROUND 

In  April  of  1981  a  new  era  of  space  exploration  was 
opened  for  mankind  when  the  Space  Shuttle  successfully 
returned  to  Earth  after  its  first  orbital  mission. 
Notwithstanding  the  significant  capabilities  which  this  new 
and  radically  different  concept  in  space  transportation  has 
afforded  traditionally  large  and  well  funded  government  and 
industrial  agencies ,  the  Space  Shuttle  has  also  ushered  in 
the  age  of  the  small  experimenter  with  limited  access  to 
ftinds  who  has  an  idea  which  needs  to  be  tested  in  space  and 
who  now  has  a  means  of  seeing  that  test  realized. 

The  Get  Away  Special  (GAS)  Program  was  developed  by  the 
National  Aeronautics  and  Space  Administration  (NASA)  to 
afford  qualifying  teams  of  experimenters  the  opportunity  to 
launch  and  orbit  GAS  payloads  on  a  not-to-interf ere  space 
available  basis  during  regularly  scheduled  Shuttle  missions. 

The  main  purpose  for  Shuttle  missions  is  the  conveyance 
into  space  and  deployment  of  large,  sophisticated 
instruments  into  Earth  orbit.  Because  many  primary  mission 
payloads  do  not  occupy  the  entirety  of  the  Shuttle  payload 
bay  there  is  frequently  opportunity  for  the  additional 


deployment  of  GAS  payloads  during  Shuttle  missions  [Ref.  1: 
pp.  8-9]. 

One  significant  requirement  demanded  of  GAS 
experimenters  is  that  each  payload  be  self-contained  within 
its  standard  size  (5.0  cubic  foot)  NASA  provided  canister. 
Thus  it  is  expected  that  each  GAS  experiment  include 
provisions  within  its  own  confines  for  all  electrical  power 
heating  elements,  data  control  and  storage,  and  so  on.  In 
short,  GAS  payloads  may  not  draw  upon  any  Shuttle  services 
for  their  normal  operation  beyond  an  on-off  switch  control 
which  may  be  thrown  locally  by  an  astronaut  should  the 
Shuttle  timeline  of  events  allow  for  such  intervention. 

This  requirement  for  a  completely  self-contained 
experiment  necessitates  a  well-planned  execution  of  tasks 
performed  under  automated  control.  Although  the  concession 
for  astronaut  involvement  in  experiment  initiation  is 
provided,  during  some  critical  periods  it  is  not  feasible 
for  astronauts  to  tend  to  GAS  payload  requirements,  e.  g., 
during  launch  and  landing  phases.  At  these  times  it  then 
becomes  necessary  to  design  for  complete  automation  of  GAS 
experimental  control,  to  provide  most  significantly  for 
independent  Initiation  of  experimentation. 

B.  STATEMENT  OF  GOAL 

It  is  the  purpose  of  this  thesis  to  consider  a  design 
algorithm  to  accomplish  an  automated  initiation  of  GAS 
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experimentation  based  solely  upon  the  passive  detection  of  a 
well-defined  event  in  the  evolution  of  the  Shuttle  timeline 
of  operations.  Specifically  it  is  desired  that  an 
experiment  be  undertaken  to  measure  the  acoustical  and 
vibrational  environment  present  in  the  Shuttle  payload  bay 
from  prior  to  Space  Shuttle  Main  Engine  (SSME)  ignition  (at 
approximately  T-6  seconds)  until  the  Orbiter  has  exited  the 
Earth's  atmosphere  (at  approximately  T+2  minutes). 

Previous  GAS  missions  have  been  deployed  to  accomplish 
this  Scuae  mission  goal.  In  these  previous  missions  the 
solution  to  the  problem  of  Independent  experiment  initiation 
was  addressed  by  way  of  a  simple  sound  pressure  level  ( SPL) 
sensor  used  to  detect  the  unmistakable  roar  of  SSME ' s  as 
they  ignite  at  T-6  seconds.  By  this  method  the  sizable 
impulse  thus  generated  can  easily  be  used  to  signal 
experiment  Initiation.  In  this  way  power  is  applied  to  data 
collection  and  storage  elements  whose  purpose  is  to  record 
the  information  relevant  to  the  mission  of  the  experiment. 

The  obvious  shortcoming  in  this  experimental  scheme  is 
that  it  uses  as  its  prime  mover  the  very  noise  and  vibration 
which  it  presumes  to  measure.  Though  the  delay  caused  by 
Impulse  generation  and  transmission  via  the  SPL  sensor  may 
be  minimal,  it  nonetheless  requires  a  finite  amount  of  time 
for  tape  transport  transients  to  settle  and  begin  the 
recording  of  meaningful  data.  This  delay  has  been  reported 
to  be  as  much  as  several  seconds  and  so  can  be  seen  to  be  a 


Therefore  our  task  is  to  develop  a  matched  filter  which 
will  detect  the  presence  of  a  spectral  peak  at  600  Hz  and/or 
at  coincident  harmonic  multiples  of  600  Hz.  We  will 
attempt  to  realize  the  needed  performance  emphasizing  only 
the  most  evident  600  Hz  peak.  Based  upon  the  results  of 
this  design,  will  then  know  if  we  must  consider  the 
additional  Impact  of  the  less  evident  harmonic  elements. 

Our  desire  is  to  implement  the  scheme  which  provides  the 
simplest,  smallest,  most  reliable,  and  least  power  consuming 
design  which  will  ensure  APU  detection  prior  to  launch. 
Therefore  detection  of  all  higher  order  harmonic  components 
is  less  important  than  the  development  of  a  filter  which 
accomplishes  the  primary  goal.  We  shall  examine  both  analog 
and  digital  methods  for  implementing  our  matched  filter  and 
compare  the  effectiveness  of  the  various  designs  before 
selecting  the  device  which  will  orbit  the  Earth. 


but  for  our  purposes  this  Is  an  inconsequential 
shortcoming. ) 

An  examination  of  the  PSD's  of  the  remaining  sets  of 
data  not  corrupted  by  the  lack  of  TSC  reveals  the  expected 
behavior.  In  all  cases  the  noise  background  remains 
essentially  unchanged  from  the  first  of  the  plot  pair  to  the 
second  except  for  the  effect  of  the  impressed  APU  signature 
clearly  evident  in  the  second.  In  every  plot  performed 
after  APU  start-up  the  characteristic  600  Hz  peak  is  evident 
to  some  degree  and  in  many  instances  we  also  see  the 
harmonic  components  at  1200  and  1800  Hz.  This  is  especially 
true  for  those  plots  reflecting  the  environment  surrounding 
microphone  9403  which  is  located  only  a  bulkhead  removed 
from  the  APU's  themselves.  However,  of  some  concern  is  the 
fact  that  the  600  Hz  peak  is  least  evident  for  microphone 
9405  which  is  at  the  forward  bulkhead  furthest  removed  from 
the  APU's  and  where  it  is  expected  that  the  GAS  canister 
will  be  placed  for  the  upcoming  mission. 

The  salient  points  are  therefore  as  follows: 

1.  The  APU  does  provide  a  specific  signature  which  becomes 
clearly  evident  in  the  audio  spectrum  of  the  Shuttle 
payload  bay  pre-launch  acoustic  environment.  There  are 
well-defined  spectral  peaks  at  a  fundamental  frequency 
of  600  Hz  and  at  integral  harmonics  thereof. 

2.  The  magnitude  of  the  APU  signature  is  variable  in  the 
payload  bay  depending  upon  the  location  of  the  sensor 
used  to  detect  it.  A  sensor  placed  closer  to  the  after 
bulkhead  will  be  more  apt  to  respond  to  the  APU 
signature  in  a  manner  which  will  facilitate  matched 
filter  performance,  but  the  signature  is  evident 
throughout  the  payload  bay. 
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It  Is  known  that  measures  were  taken  to  minimize  the  error 
introduced  in  the  dubbing  process.  On  most  copies  a  Tape 
Speed  Compensation  (TSC)  process  was  employed  which  ensures 
that  the  tape  transport  travels  at  the  same  speed  as  when 
originally  recorded.  That  this  process  is  indispensable  is 
realized  upon  examination  of  the  PSO's  obtained  for 
microphones  940S  and  9219  on  STS-3.  In  these  two  cases 
alone  TSC  was  not  employed  due  to  operator  error  at  a 
previous  generation.  The  noise  floor  thus  generated  is  seen 
to  be  an  order  of  magnitude  greater  than  in  other  plots  and 
is  severe  enough  to  mask  the  desired  information.  In  all 
other  tape  copies  TSC  was  employed. 

(Another  generation  of  tape  copies  was  recorded  for  use 
at  the  Naval  Postgraduate  School  in  the  development  of  the 
experiment  described  earlier.  This  recording  process  was 
accomplished  using  a  Hewlett-Packard  Model  3964A 
Instrumentation  Data  Recorder  in  an  FM  mode  to  allow 
recording  of  analog  data  from  0  to  8  kHz.  The  HP  recorder 
also  employs  a  tape  speed  servo  control  which  also  ensures 
tape  speed  accuracy.  PSD  plots  were  obtained  in  all  cases 
for  the  dubbed  tape  to  verify  the  accuracy  of  this  latest 
dubbing  routine.  In  each  case  the  PSD  of  the  dubbed  data 
was  confirmed  to  be  a  good  reproduction  of  the  "original" 
except  for  the  region  below  200  Hz.  In  this  region  the 
reproduction  was  not  as  good  as  in  the  region  above  200  Hz 
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Appendix  B  is  a  summary  of  PSD  plots  of  the  acoustic 
environment  present  In  the  Shuttle  payload  bay  at  three 
different  locations  for  the  three  missions  listed  In  the 
prevloizs  section.  As  noted  In  Figure  2.2  the  locations  of 
the  three  microphones  are  dispersed  throughout  the  payload 
bay  to  reveal  variations  in  the  acoustic  signature  from  one 
location  to  another.  Microphone  V08Y9405A  (which  shall  be 
referred  to  as  940S  for  simplicity)  was  positioned  near  the 
forward  bulkhead  of  the  payload  bay,  furthest  removed  from 
the  APU.  Microphone  V08Y9219A  (9219)  was  located  low  and 
amidships,  and  microphone  V08Y9403A  (9403)  was  located  at 
the  after  bulkhead,  closest  of  the  three  to  the  APU.  All 
three  were  Identically  configured  to  respond  to  a  dynamic 
range  of  110-157  dB. 

The  payload  bay  acoustic  data  Is  presented  in  pairs  of 
plots  with  the  first  of  the  pair  showing  the  signature 
before  the  APU  is  turned  on  and  the  second  showing  the 
signature  approximately  thirty  seconds  later  after  APU 
start-up.  This  data  was  obtained  from  an  analog  magnetic 
tape  copy  of  the  original  data  recording  which  was  made 
available  from  the  DATE  group  at  Aerospace  Corporation 
headquarters  in  Los  Angeles. 

There  is  doubtless  some  extraneous  noise  introduced  in 
the  process  by  which  the  original  tape  was  copied  to  yield 
the  tape  available  at  Aerospace.  Furthermore,  the 
generation  of  the  Aerospace  copies  are  not  known.  However 
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Table  2.1 


DEVELOPMENT  PLIGHT  INSTRUMENTATION  (DPI) 

ACOUSTIC  MEASUREMENT  INPORMATION 

Microphone  Range  Cargo  Bay  Orblter  Station  Location 
Number  (dB)  Location  X  Y  Z 


V08Y9219A 

110-157 

Internal 

863 

-100 

381 

V08Y9220A 

110-157 

Internal 

1190 

0 

427 

V08Y9401A 

130-177 

External 

639 

3.5 

500 

V08Y9402A 

130-177 

External 

1281 

4 . 2 

500 

V08Y9403A 

110-157 

Internal 

1306 

12.0 

400 

VQ8Y9404A 

130-177 

External 

1296 

0 

300 

V08Y9405A 

110-157 

Internal 

640 

4 

423 

Note:  The  frequency  response  of  all  microphones  is  wide¬ 

band,  20  Hz  to  8  kHz. 


D.  STS  PAYLOAD  BAY  PRE-LAUNCH  ACOUSTIC  ENVIRONMENT 

As  indicated  in  the  previous  section  we  are  principally 
interested  in  the  response  of  three  Internal  microphones  to 
the  Shuttle  payload  bay  environment.  The  intent  is  to 
examine  the  environment  prior  to  APU  start-up  to  determine 
the  noise  background  present  before  the  APU  acoustic 
signature  is  impressed  upon  this  background.  Then 
microphone  responses  will  be  examined  after  APU  start-up  to 
reveal  the  APU  acoustic  signature  over  the  noise  background. 
Based  upon  our  previous  examination  of  the  APU  vibrational 
signature  evident  in  equipment  testing  we  expect  to  see  that 
spectral  peaks  at  the  fundamental  and  harmonic  frequencies 
of  600  Hz  will  become  clear  at  the  time  of  APU  start-up. 


at  launch.  Rounding  out  the  array  of  acoustic  sensors  were 
three  additional  microphones  mounted  externally.  All 
microphones  were  manufactured  by  Gulton  Industries  with  only 
minor  alterations  differentiating  the  three  external  sensors 
from  the  four  Internal  ones.  The  relative  location  of  each 
of  these  seven  acoustic  sensors  Is  shown  In  Figure  2-2. 


Figure  2.2  DFI  Acoustic  Measurement  Locations 


Sensor  location  designators,  dynamic  range  and  frequency 
response  of  each  microphone  are  shown  in  Table  2-1  on  the 
following  page  [Refs.  3  and  4], 
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C.  STS  PAYLOAD  BAY  ACOUSTIC  ENVIRONMENT  MEASUREMENT 

INSTRUMENTATION 

Data  instrumentation  recorders  were  flown  on  all  early 
Shuttle  flights  to  measure  the  acoustic  environment  present 
during  the  launch  and  landing  phases  of  these  missions. 
These  experiments  were  conducted  under  the  auspices  of  the 
NASA  DATE  (Dynamic,  Acoustic  and  Thermal  Environments) 
Working  Group  which  has  as  its  mission  the  development  of 
In^roved  methods  for  predicting  all  aspects  of  STS  (Shuttle 
Transportation  System)  payload  environments.  Pursuant  to 
this  study  we  shall  make  use  of  data  collected  during  each 
of  the  following  three  Shuttle  missions; 

—  STS-2  (conducted  November  12-17,  1981) 

—  STS-3  (conducted  March  22-27,  1982) 

—  STS-4  (conducted  June  27  -  July  4,  1982) 

In  each  of  these  missions  it  is  only  the  data  which  was 
recorded  just  prior  to  the  launch  which  is  of  any 
significance  for  our  purposes  here. 

Of  particular  interest  to  us  is  the  acoustic  data 
recorded  at  three  specific  locations  in  the  Shuttle  payload 
bay  on  each  of  the  three  flights  listed  above.  On  each 
flight  sixteen  selected  sensors  comprised  the  STS 
Development  Flight  Instrumentation  (DFI)  system.  Of  these 
sixteen  sensors,  four  internal  microphones  were  used  to 
measure  the  acoustic  environment  present  in  the  payload  bay 


of  higher  spectral  components  although  an  expected  2400  Hz 
peak  is  present  In  several  plots  despite  the  attenuation. 

The  significance  of  these  plots  is  in  the  consistency  of 
the  component  spectral  elements  despite  APU  loading. 

Although  the  relative  and  absolute  magnitudes  of  the 
fundamental  600  Hz  peak  and  its  harmonic  constituents  vary 
somewhat  over  the  range  of  loading  displayed  the  spectral 
location  of  each  remains  fixed.  This  shift  in  magnitudes  is 
of  some  concern  to  mechanical  engineers  as  it  has  been  shown 
that  failures  in  some  rotating  machinery  have  occurred  when 
vibration  signatures  have  deviated  in  this  manner.  But  our 
concern  is  with  the  consistency  of  the  location  of  the 
spectral  peaks  as  this  confirms  the  RPM  stability  of  the  APU 
over  expected  levels  of  loading. 

We  thus  have  a  basis  for  further  investigation  of  the 
acoustic  environment  in  the  Shuttle  payload  bay.  We  know 
that  there  is  a  specific  vibrational  signature  which 
accompanies  the  normal  functioning  of  the  APU  and  we  may 
expect  that  this  vibration  will  translate  to  an  acoustic 
signature  in  the  Shuttle  pre-launch  environment.  We  now 
proceed  to  Investigate  this  proposition  with  an  examination 
of  the  acoustic  environment  present  in  the  Shuttle  payload 
bay  prior  to  launch. 


APn  output  shaft  horsepower  Is  delivered  to  the 
hydraulic  pump  at  a  nominal  3800  RPM's  through  a  two  stage 
reduction  gear.  Although  bal2mced  to  within  exceedingly 
fine  tolerances  dictated  by  extremely  fast  rotational  RPM's 
the  APU  is  nevertheless  characterized  by  a  specific 
vibrational  signature.  We  shall  examine  this  signature  In 
some  detail  because  a  careful  understanding  of  Its  nature  is 
crucial  to  the  development  of  a  filter  dedicated  to  Its 
detection. 

In  Appendix  A  there  is  Included  a  graphical  summary  of 
the  results  of  hotflre  testing  of  one  APU  Installed  in  the 
Shuttle  Orblter.  These  are  Power  Spectral  Density  (PSD) 
plots  of  accelerometers  mounted  along  the  x-axls  (D0280A) 
and  z-axls  (00281A)  of  this  particular  APU  for  various 
levels  of  loading.  Also  shown  for  reference  is  a  PSD  plot 
of  the  background  noise  prior  to  APU  ignition.  Relative  to 
the  plots  of  APU  vibration  we  see  that  In  each  case  the 
background  noise  Is  no  less  than  two  orders  of  magnitude 
lower  than  the  PSD  peaks  of  data  obtained  from  the  loaded 
APU. 

The  results  of  this  test  reveal  a  very  particular 
vibrational  signature  for  the  APU.  It  should  be  noted  that 
there  are  consistently  repeating  peaks  at  600  Hz  and  two 
harmonics  above  this  value  at  1200  Hz  and  1800  Hz.  The 
bandwidth  of  the  filter  employed  in  this  investigation  had  a 
3  dB  rolloff  at  2300  Hz.  This  obviated  a  close  examination 


APU  MISSION  DUTY  CYCLE 


Figure  2.1  APU  Mission  Duty  Cycle 
(Baseline  81.1  Minute  Time  Line) 


In  the  pre-launch  phase  APU  loading  varies  minimally 
from  8.0  to  40.0  horsepower  according  to  hydraulic 
requirements  during  the  phase.  Because  the  APU  is  designed 
to  operate  at  72,000  RPM's  (plus  or  minus  eight  percent) 
over  its  entire  range  of  output  shaft  horsepower,  its  steady 
state  and  dynamic  vibrational  characteristics  vary  little 
during  the  pre-launch  phase.  This  is  due  to  the  minimal 
hydraulic  loading  which  characterizes  this  phase. 


II.  THE  AUXILIARY  POWER  UNIT  (APU) 
AND  THE  SHUTTLE  PAYLOAD  BAY 
PRE-LAUNCH  ACOUSTIC  ENVIRONMENT 


A.  APU  DESCRIPTION 

The  Auxiliary  Power  Unit  (APU)  was  developed  by  the 
Siindstrand  Corporation  under  contract  from  Rockwell 
International,  the  prime  contractor  for  the  Space  Shuttle. 
Each  Shuttle  Orbiter  is  equipped  with  three  complete  APU's 
and  associated  hydraulic  systems.  Each  APU  and  Its 
hydrazine  fuel  system  is  independent  of  the  other  two  during 
normal  operations.  However,  there  are  cross-ties  between 
hydraulic  systems  which  allow  any  two  APU's  to  pick  up  the 
load  from  a  third  should  it  fail  during  operation. 

B.  APU  MISSION  DUTY  CYCLE 

Figure  2.1  Is  a  representative  diagram  of  a  typical  APU 
Mission  Duty  Cycle  for  an  entire  Shuttle  mission  (Ref.  2]. 

It  Is  expected  that  a  mlnlmxun  of  two  restarts  from  a  cold 
condition  will  be  typical  in  a  mission.  The  baseline  duty 
cycle  calls  for  81.1  minutes  of  APU  operation  at  various 
power  levels  from  8.0  horsepower  to  its  maximum  rated  135.0 
horsepower.  This  includes  launch,  de-orbit,  re-entry  and 
landing  phases  and  so  includes  operation  at  all  altitudes 
corresponding  to  extremes  of  airfoil  atmospheric  resistance 
and  Orbiter  speed. 


Several  different  schemes  for  accomplishing  a  matched 
band-pass  filter  design  will  be  discussed.  Nominally  this 
will  Include  an  analog  design  built  around  operational 
amplifiers  and  a  digital  design  of  Infinite  Impulse  Response 
(HR)  Implemented  with  an  INTEL  2920  Signal  Processor.  This 
latter  configuration  will  be  derived  from  a  cascaded  HR 
design  which  results  from  the  Bilinear  transformation  of  the 
analog  filter.  The  difference  equation  representation  of 
the  digital  filter  transfer  function  will  form  the  basis  for 
the  2920  design.  In  addition  I  will  discuss  further  design 
alternatives  Including  an  Adaptive  Finite  Impulse  Response 
(FIR)  Weiner  filter  and  an  idea  for  a  design  centered  about 
a  speech  processing  algorithm.  Advantages  and  disadvantages 
of  each  approach  will  be  discussed. 

Ultimately  one  design  will  be  chosen  for  Integration 
within  the  GAS  experiment  just  described  and  scheduled  for 
launch  In  an  upcoming  Shuttle  mission. 


T-5  minutes.  These  units  are  essentially  jet  engines  which 
provide  for  hydraulic  power  of  Shuttle  airfoil  control 
surfaces  during  the  atmospheric  phases  of  launch  and 
landing.  They  are  designed  to  operate  at  very  high  (72,000) 
RPM's,  but  also  generate  a  very  specific  acoustic  signature 
in  the  audio  range  of  the  spectrum  during  normal  operation. 
If  it  is  possible  to  detect  this  APU  acoustic  signature 
during  the  pre-launch  sequence  of  events  and  to  discriminate 
this  signature  from  among  the  various  other  acoustic  events 
which  may  also  occur  during  the  pre-launch  phase,  then  it 
may  be  possible  to  signal  experiment  initiation  by  detection 
of  this  event. 

The  emphasis  of  this  thesis  will  be  to  describe  the 
nature  of  the  APU  acoustic  signature  and  to  develop  a 
matched  filter  which  is  tuned  to  its  characteristics.  It 
should  be  emphasized  from  the  beginning  that  this  it  is  not 
my  intention  to  develop  a  classical  "matched  filter"  which 
rigorously  conforms  to  that  definition.  I  do  not  have  the 
uncontaminated  APU  acoustic  signature  data  at  my  disposal 
which  would  allow  that  sort  of  an  analysis.  Rather  it  is  my 
intention  to  examine  the  APU  signature  in  the  Shuttle  cargo 
bay  environment  and  to  develop  a  filter  which  is  "matched" 
to  that  contaminated  signature.  It  is  expected  that  an 
extremely  narrow  (high  Q)  band-pass  filter  will  accomplish 
this  goal . 


significant  gap  in  any  serious  analysis  of  the  acoustical 
and  vibrational  transients  which  mvist  accompany  Ignition  and 
launch. 

One  means  of  lessening  the  Impact  of  transient  delay  is 
to  substitute  a  solid  state  data  recorder  for  the 
traditional  magnetic  tape  variety  of  instrumentation  data 
recorders.  This  idea  is  being  investigated  by  another  team 
of  researchers  at  the  Naval  Postgraduate  School  for 
incorporation  into  a  deployable  GAS  mission  canister. 

Despite  the  advantage  which  a  solid  state  recorder  will 
afford  toward  minimizing  the  transient  delay  prior  to 
meaningful  data  collection,  it  can  never  completely 
eliminate  the  transient  effect  which  accompanies  any  scheme 
which  is  trying  to  measure  the  same  signal  which  it  also 
uses  for  experiment  initiation.  There  is  a  causal 
imperative  here  which  is  Inescapable. 

It  is  the  purpose  of  this  thesis  then  to  develop  a  means 
of  experiment  initiation  which  will  allow  data  collection  to 
commence  well  before  SSME  ignition.  In  this  manner  we  will 
be  allowed  a  full  measure  of  the  acoustical  and  vibrational 
environment  which  is  present  in  the  Shuttle  payload  bay 
during  launch. 

C.  DISCUSSION  OP  THE  GENERAL  SOLUTION  ALGORITHM 

The  timeline  of  Shuttle  events  prior  to  launch  includes 
the  turn-on  of  Auxiliary  Power  Units  (APU)  at  approximately 


III.  ANALOG  FILTER  DESIGN  THEORY  AND  IMPLEMENTATION 


The  traditional  method  of  filter  implementation  in 
electronic  circuitry  was  for  a  long  time  characterized  by  an 
implementation  of  passive  anid  discrete  resistive,  inductive 
and  capacitive  components  timed  to  respond  to  the  desired 
frequency  components  of  the  input  signal.  In  the  earlier 
years  of  circuit  design  this  procedure  Involved  a  lengthy 
process  of  theoretical  development  and  precise  component 
selection.  This  was  often  a  tedious  process  involving 
component  trial  and  substitution. 

Analog  filter  design  took  a  great  leap  forward  with  the 
advent  of  integrated  operational  amplifiers  (op-amps)  and 
later,  integrated  circuit  (IC)  technology.  Now  for 
instance,  using  an  Integrated  circuit  such  as  the  National 
Semiconductor  AFIOO  Universal  Active  Filter  as  a  design 
basis,  it  is  possible  for  a  circuit  designer  to  construct  a 
precise  analog  filter  circuit  with  a  surprising  economy  of 
effort.  We  will  use  the  Biquad  Elliptic  Filter  design  which 
forms  the  basis  of  the  AFIOO  to  implement  the  analog  designs 
we  shall  develop  herein. 

A.  PRACTICAL  DEVELOPMENT  OF  AN  ANALOG  BAND-PASS  FILTER 

We  will  begin  our  development  of  a  tuned  filter  design 
by  examining  an  analog  IC  Implementation  of  a  band-pass 


filter  with  a  center  frequency  of  600  Hz.  (We  could  expand 
this  band  coverage  to  include  the  two  additional  center 
frequencies  of  1200  Hz  and  1800  Hz  if  it  proves  that  such  a 
design  modification  is  necessary. )  In  this  development  we 
shall  choose  to  build  an  Elliptic  (or  Cauer)  filter  which 
exhibits  a  much  steeper  roll-off  outside  the  passband  over  a 
Butterworth  or  Chebyshev  design  of  equivalent  order.  The 
disadvantage  of  ripple  in  the  passband,  which  characterizes 
Elliptic  filters,  will  cause  minimal  impact  and  will  not  be 
a  factor  in  the  realization  of  our  goal.  In  fact  we  can 
allow  the  ripple  in  the  passband  to  be  relatively  high 
because  our  intent  is  not  to  pass  a  faithful  representation 
of  the  APU  signature  but  only  to  detect  its  presence.  Thus 
our  goal  is  to  construct  a  band-pass  filter  with  a  high 
quality  factor  and  narrow  passband.  This  corresponds  to  a 
steep  roll-off  out  of  the  passband. 

The  method  which  will  be  employed  to  realize  this  band¬ 
pass  filter  will  be  to  describe  the  characteristics  of  the 
desired  analog  band-pass  design  and,  using  a  low-pass-to- 
band-pass  transformation,  solve  for  the  form  of  the 
corresponding  low-pass  prototype  using  transform  relations. 
This  will  allow  us  to  determine  the  necessary  order  of  the 
low-pass  design  which  can  subsequently  be  transformed  into 
the  required  band-pass  filter. 

If  we  again  examine  the  PSD  plots  of  the  APU  noise  above 
the  background  for  the  600  Hz  component  we  can  generalize  a 


desired  filter  transfer  function  to  approximate  this 
response.  Let  us  choose  the  3  dB  points  of  the  band-pass 
filter  (centered  at  600  Hz)  to  be  at  575  and  625  Hz.  We 
will  allow  the  pass-band  ripple  width  (PRW)  to  be  as  much  as 
2  dB  within  the  pass-band.  Let  us  furthermore  require  the 
stop-band  attenuation  on  either  side  of  the  pass-band  to  be 
down  at  least  30  dB  at  500  and  700  Hz.  This  represents  a 
very  steep  roll-off  characteristic  and  suggests  the  use  of 
an  Elliptic  filter  design  for  that  reason.  In  fact,  to 
achieve  this  degree  of  roll-off  in  a  low-pass  design  would 
require  a  model' prototype  of  order  6.  The  equivalent 
Chebyshev  design  would  require  a  minimum  order  of  14,  while 
the  Butterworth  low-pass  filter  equivalent  order  would  be  at 
least  63.  Clearly  the  Elliptic  design  is  our  only  viable 
alternative. 

The  low-pass  to  band-pass  transformation  for  analog 
filters  results  in  a  transfer  function  which  raises  the 
order  of  the  low-pass  equivalent  by  a  factor  of  two. 
Therefore  if  we  design  a  band-pass  filter  it  will 
necessarily  consist  of  a  number  of  second-order  stages  in 
the  final  implementation. 

1 .  Low-Pass  to  Band-Pass  Frequency  Transformation 


filter  by  a  frequency  transformation.  However,  the 
characteristics  of  our  final  filter  are  known  in  band-pass 
form.  Thus  we  must  deduce  the  analog  low-pass  design  from 
the  band-pass  characteristics  and  then  apply  the  analog 
transformation  to  the  low-pass  prototype  to  realize  our 
goal.  This  development  is  a  combination  of  procedures 
described  in  Chen  [Ref.  S]  and  Johnson  [Ref.  6]. 

We  wish  to  design  an  analog  band-pass  filter  having 
the  following  characteristics 
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In  this  analog  development  the  prime  frequencies 
refer  to  the  band-pass  function  and  the  unprimed  frequencies 
to  the  low-pass  function.  Figure  3.1  is  a  graphical 
depiction  of  the  relationship  between  the  transfer  function 
transform  pair.  The  negative  axis  frequencies  arise  from 
the  mathematics  of  this  development.  However,  we  shall  only 
be  functionally  concerned  with  the  positive  axis 
transformation.  We  are  also  considering  the  low-pass 


function  to  be  normalized  ((•>»!). 
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Figure  3.1  A  Low-Pass  to  Band-Pass  Frequency 
Transformation  in  the  Analog  Domain 

A  suitable  transformation  must  therefore  accomplish 
the  transform  relations  detailed  in  Table  3.1  [Ref.  5]. 

Table  3.1 

LOW-PASS  TO  BAND-PASS  TRANSFORM  PAIRS 
Low-Pass  Function  Band-Pass  Function 
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As  developed  in  Chen  [Ref.  5;  p.  235],  the  analog 
frequency  transformation  which  will  accomplish  a  low-pass  to 
band-pass  frequency  transformation  [H(s)  »*>  H(s')]  is  given 
by  the  following  relation. 
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■  V  I  «  •  I 


s'  *  -I-  Up  tUp  2 

s  «  - 

s' (uji  +  , ) 

or  if  we  substitute  the  above  values 

s'*  +  4iT*  •(3.59375  X  10*  ) 

s  *  —  - 

s'  •2x *50 

or,  using  s  =  J« 

4Tr»  *(3 .59375  x  10*)  -  «' * 

«  =  -  - 

(i)'  •2n«50 

Making  the  following  substitutions  into  the 
preceding  equation  yields 

3  2n*500 

«■>  =  -4.3750000 

and 

u'nt  =  2it«700 

»»>  =  -3.7321429 


Therefore  we  are  left  with  the  need  to  design  an 
analog  low-pass  filter  with 

Uc  »  1  rad/sec,  and 
Uq  »  3.7321429  rad/sec 
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This  leaves  us  with  a  normalized  low-pass  transition 


width  (TWip)  of 

TWlp  a  Uq  -  We 

»  2.7321429 

We  now  have  enough  Information  to  enter  the  tables 
In  Johnson  [Ref.  6]  to  obtain  the  data  shown  In  Table  3.2. 

Table  3.2 

ELLIPTIC  LOW-PASS  FILTER  DATA 
(for  the  band-pass  filter  low-pass  prototype) 

A  B  C  WZ  WM  KM 

21.16400  0.787152  0.842554  4.600435  0.715610  1.258925 

2 .  600  Hz  Elliptic  Band-Pass  Filter  Design 

In  the  case  of  elliptic  band-pass  filters  the 
transfer  function  may  be  factored  into  the  product  of 
second-order  functions.  The  two  factors  arising  from  each 
second-order  low-pass  stage  have  the  forms  [Ref  6:  p.  100] 

Kiy^(s*  +  A»«j) 

s*  +  (D«,/E)s  +  D*«J  3. 


yi 


and 


Equations  3 . l  and  3 . 2  above  are  of  the  general  form 

V,  /o(s»  +  ocai  ) 

Vj  s*  /3u«s  rui  3.3 

which  is  identical  to  the  form  of  the  low-pass  transfer 
fvinctlon,  except  for  the  replacement  of  (■)«  by  the 
corresponding  low-pass  term  Uf 

Our  analog  band-pass  filter  will  have  two  stages  of 
the  form  given  by  Eq.  3.3.  Comparing  Eq.  3.3  with  Eq.  3.1 
and  Eq.  3.2  reveals  the  following  transfer  function 
coefficients  of  the  band-pass  filter  stages  [Ref  6:  p.  118]; 

1)  First  stage 
p  -  K  a 

Of  »  Aj 

B  »  D/E 

T  *  D* 

2)  Second  stage 

p  =  K,  JcTl 

a  *  1/A, 
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-  1/DE 


T  =  1/D* 

In  the  FORTRAN  program  ABPDBP  ( included  as 
Appendix  C)  many  of  the  calculations  which  are  indicated  in 
this  thesis  development  will  be  performed.  In  Section  1  of 
this  prograun  we  begin  with. desired  filter  parameters  and 
tabulated  values  which  correspond  to  the  filter  we  wish  to 
build.  We  then  calculate  several  derived  parameters  from 
these  Initial  values.  Next  we  perform  further  calculations 
(which  shall  be  developed  shortly)  which  yield  values  for 
filter  resistors  and  capacitors. 

In  Section  2  of  ABPDBP  we  use  the  two  sets  of  filter 
parameters  which  correspond  to  each  of  the  filter  stages 
indicated  by  Eq  3.3  to  arrive  at  the  overall  transfer 
function.  ABPDBP  describes  the  corrections  which  must  be 
made  to  provide  for  pre-warping  of  frequencies  preparatory 
to  a  digital  transformation  (which  shall  be  discussed  in 
Chapter  4)  but  these  changes  can  be  ignored  in  this  analog 
discussion.  Thus  we  will  use  f,  =  600  Hz  (which 
implies  the  use  of  WO,  not  WODIG)  in  the  program 
calculations.  The  fourth  order  analog  filter  transfer 
function  which  results  from  this  development  is  given  in 
Equation  3.4. 


H(S) 


3.4 


«  a«s*  +  a^s*  +  a^s*  +  a^s  +  a« 
b«s*  +  bjS»  +  b,s*  +  b,s  +  b. 

The  values  of  the  coefficients  in  this  analog 
transfer  function  representation  are  given  in  Table  3.3 
which  follows. 


Table  3.3 

ANALOG  ELLIPTIC  BPP  FOURTH  ORDER  COEFFICIENTS 
(Normalized  coefficients  with  gain  0.03981) 

Coefficient  Value 


a. 

1.0000 

ai 

0.0 

a, 

2.9587 

X 

10^ 

a. 

0.0 

a« 

1.8991 

X 

io»« 

b. 

1.0000 

bi 

2.4351 

X 

10* 

b. 

2.7642 

X 

10* 

b. 

3.3558 

X 

10» 

b4 

1 . 8991 

X 

10** 

In  Section  2A  of  the  program  ABPDBP  the  poles  and 
zeros  of  the  analog  transfer  function  are  then  calculated  to 
demonstrate  the  stability  of  the  filter  design.  The  values 
for  the  poles  and  zeros  may  be  observed  in  the  output  of 
ABPDBP  and  are  reproduced  graphically  in  Figure  3.2  on  the 
following  page.  The  poles  of  the  filter  lie  within  the  left 


half  of  the  s-plane  and  this  confirms  the  stability  of  our 
design. 

3 .  Analog  Band-Pass  Filter  Simulation 

Now  that  we  have  developed  the  transfer  function 
which  describes  the  desired  analog  band-pass  filter  we  can 
use  this  function  to  simulate  the  active  operation  of  the 


POLE/ZERO  PLOT  TOR  FiNPLOG  ELLIPTIC  BPP 
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Figure  3.2  Pole/Zero  Plot  for  the  Analog  Elliptic 

Band-Pass  Filter 


filter.  The  FORTRAN  program  ABPFR  (which  is  Included  as 
Appendix  D  to  this  thesis)  is  used  to  examine  this 
particular  band-pass  filter  simulation.  Figures  3.3,  3.4 


and  3.5  which  follow  are  the  results  of  this  computer 
simulation  of  the  filter  response  for  the  device  we  have 
Just  designed.  The  range  of  frequencies  of  the  simulated 
computer  input  is  DC  to  1  kHz.  The  simulated  amplitude  is 
constant  over  the  range  of  input  frequencies. 

In  Figure  3.3  we  see  the  amplitude  response  which  is 
near  zero  at  all  but  the  passband  frequencies  around  600  Hz. 
Between  500  and  700  Hz  we  confirm  the  desired  filter 
response.  The  center  frequency  is  located  at  600  Hz  and 

RNRlGG  elliptic  3Pr  frequency  response 
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Figure  3.3  Analog  Elliptic  BPF  Frequency  Response 
(Computer  Simulated  Amplitude  Response) 


38 


there  is  a  significant  minimum  at  the  center  frequency  due 
to  the  effect  of  the  passband  ripple  of  2.0  dB .  Furthermore 
we  observe  a  half  power  point  (3.0  dB  down  point)  at  about 
575  Hz  and  625  Hz  as  specified  in  our  design. 

In  Figure  3.4  we  again  observe  a  computer  simulation 
of  the  amplitude  response  of  the  filter,  this  time  measured 
in  decibels.  The  marked  presence  of  notches  at  about  500  Hz 
and  700  Hz  is  obvious,  and  the  30  dB  minimum  loss  in  the 
stopband  is  also  confirmed.  We  also  have  graphical 
confirmation  of  the  2.0  dB  ripple  width  in  the  passband. 
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Figure  3.4  Analog  Elliptic  BPF  Frequency  Response 
(Computer  Simulated  Amplitude  Response  in  dB ) 


Figure  4.1  Analog  and  Digital  Frequency  Transformations 


It  should  be  reiterated  that  our  goal  in  this  section 
will  be  to  develop  a  digital  filter  of  Infinite  Impulse 
Response  (HR)  characteristics.  This  means  that  our  filter 
will  use  the  results  of  previous  outputs  to  realize  a  later 
output.  Although  Finite  Impulse  Response  (FIR)  digital 
filters  offer  several  qualitative  advantages  over  HR 
designs  in  the  areas  of  phase  linearity,  stability,  and  an 
Inherent  protection  against  round-off  error,  they  also 
require  a  larger  number  of  delay  elements  to  realize  a 
design  with  a  steep  filter  roll-off.  This  will  be  of 
concern  to  us  when  we  realize  an  implementation  in  hardware 
with  devices  limited  to  a  relative  few  number  of  filter 
transfer  function  poles  and  zeros. 
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case  known  analog  filter  characteristics  In  the  frequency 
d6maln  (the  Laplaclan  "s"  domain)  are  converted  to  similar 
characteristics  In  the  digital  "z”  domain.  Each  of  these 
techniques  Introduces  a  non-linearity  into  the  resulting 
aunplltude  and  phase  characteristics  of  the  original  analog 
filter.  If  necessary  to  preserve  the  phase,  equalizers  may 
be  employed  to  return  the  phase  characteristic  to  a  nearly 
linear  behavior  over  the  region  of  interest  in  the  digital 
domain.  In  our  case  any  phase  distortion  can  be  ignored 
because  we  are  only  interested  in  frequency  detection  and 
not  accurate  reproduction. 

Generally  speaking,  when  beginning  with  an  analog  low- 
pass  design,  we  may  proceed  in  a  number  of  ways  to  arrive  at 
a  corresponding  digital  band-pass  filter  realization.  For 
instance,  we  may  first  transform  the  low-pass  filter  to  an 
analog  band-pass  design  (as  we  did  in  Chapter  3  for  the 
low-pass  to  band-pass  transformation)  and  then  employ  an 
analog  to  digital  transformation  to  yield  the  digital 
filter.  Alternatively  we  may  choose  to  employ  the  analog  to 
digital  transform  on  the  low-pass  filter  and  then  apply  a 
digital  low-pass  to  digital  band-pass  transformation  to 
realize  our  goal.  Finally,  it  is  also  possible  to  combine 
these  two-step  routines  into  a  single-step  analog  low-pass 
to  digital  band-pass  direct  transformation.  These  options 
are  shown  in  Figure  4.1  [Ref.  5:  p.  269]. 
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IV.  DIGITAL  FILTER  DESIGN 


When  designing  an  HR  digital  filter  for  a  specific 
application  it  is  common  practice  to  first  develop  an  analog 
filter  with  appropriate  characteristics  as  we  did  in  the 
preceding  chapter.  Once  the  analog  design  is  attained  it  is 
then  possible  to  transform  this  analog  filter  into  a  digital 
filter  with  the  desired  passband  characteristics. 

There  are  several  reasons  why  it  is  desirable  to  use 
this  approach  [Ref.  7:  p.  5-7].  Of  primary  importance  is 
the  fact  that  the  art  of  analog  filter  design  is  highly 
advanced.  Consequently  there  are  many  techniques  available 
for  implementing  specific  designs.  Because  useful  results 
can  be  achieved,  following  established  analog  design 
procedures  presents  advantages  in  the  amount  of  effort  which 
must  be  spent  in  the  design  phase. 

Additionally,  many  useful  analog  design  methods  have 
relatively  simple  closed-form  design  formulas.  This  greatly 
facilitates  the  Implementation  of  the  corresponding  digital 
filters . 

Finally,  in  many  applications  it  is  of  interest  to  use  a 
digital  filter  to  simulate  the  performance  of  an  analog 
linear  time-invariant  filter. 

There  are  many  alternative  methods  for  accomplishing  a 
transformation  of  fixed  filter  characteristics.  In  each 


In  Figure  3.10  we  examine  this  response  more 
specifically  for  discrete  frequencies  in  the  range  of  SOO  Hz 
to  700  Hz.  Instead  of  applying  a  ramped  sinusoid  we  input 
five  discrete  sinusoids  while  maintaining  a  constant 
aunplitude.  Thus  we  again  observe  the  very  narrow  bandpass 
filter  response  at  least  within  the  limits  presented  here. 

We  also  confirm  the  rapid  shift  in  phase  of  180  degrees  from 
the  lower  to  the  upper  bound  in  agreement  with  theory. 

While  this  examination  by  itself  does  not  confirm  the 
desired  filter  response,  it  does  so  when  considered  with  the 
results  of  the  previous  figure. 

In  Chapter  4  we  will  use  the  results  of  this  analog 
filter  Implementation  to  develop  an  equivalent  digital 
realization.  To  do  this  we  will  use  common  transformation 
techniques  to  arrive  at  a  z-domain  transfer  function  which 
we  will  then  reduce  to  a  difference  equation.  This  format 
will  then  allow  us  to  realize  a  digital  elliptic  filter  by 
use  of  the  INTEL  2920  Signal  Processor.  This  hardware 
realization  of  the  digital  filter  will  be  accomplished  in 
Chapter  5 . 
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c)  600  Hz 


a)  625  Hz 


b)  700  Hz 


Figure  3.10  Analog  Elliptic 
Upper  trace  (Input): 
Lower  trace  (Output): 


BPF  Frequency  Response 
50  mV/div  scale 
1 . 0  V/div  scale 


Figure  3.9  Analog  Elliptic  BPF  Frequency  Response 
(Photograph  of  Actual  Filter  Amplitude  Response 
to  a  Ramped  Sinusoidal  Input) 


This  gives  rise  to  the  appearance  of  a  double  response  which 
is  noted  in  the  figure.  Actually  we  are  observing  a 
multiple  reponse  over  successive  up  and  (faster)  down  ramps 
of  the  input  sinusoid.  Thus  we  are  able  to  observe 
graphical  confirmation  of  the  filter  amplitude  response 
predicted  in  the  foregoing  discussion. 

As  expected  we  observe  a  very  narrow  filter  bandpass 
response  (with  frequency  limits  we  will  look  at  more  closely 
in  the  following  paragraph) .  The  curious  extended  response 
("hump")  at  the  upper  end  of  the  passband  is  due  to  the 
inexact  placement  of  poles  and  zeroes  accomplished  by  tuning 
of  the  filter  response  in  the  aforementioned  manner. 
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The  two  74161  counter  stages  which  follow  the 
multivibrator  are  designed  to  cotint  up  to  255'  occasions  of 
the  threshold  being  exceeded  In  a  .5  second  period  before 
the  decision  Is  made  that  a  valid  600  Hz  signal  was 
detected.  This  Is  an  arbitrary  figure.  The  .5  second 
period  Is  established  by  the  555  timer  which  Is  also  fed  by 
the  one-shot  multivibrator.  If  the  counter  stages  do  not 
sum  to  255  within  a  .5  second  period  then  the  555  resets  the 
counter  stages  to  zero  and  counting  begins  anew  with  the 
comparator.  If  the  counter  does  reach  255  within  the  .5 
second  period  then  a  latch  Is  set  for  the  remainder  of  the 
.5  second  period.  This  TTL  level  signal  Is  the  one  which 
provides  the  microprocessor  Interrupt  Indicating  that  the 
APU  signal  has  been  detected. 

C.  ANALOG  BAND-PASS  FILTER  IMPLEMENTATION  RESULTS 

Figure  3.9  on  the  following  page  Is  a  photograph  of  the 
actual  frequency  response  of  the  analog  elliptic  band-pass 
filter  we  have  developed.  A  sweep  generator  was  used  to 
Input  a  ramped  sinusoidal  Input  comprised  of  a  linear 
continuum  of  frequencies  (generated  by  application  of  a 
skewed  triangular  input  to  a  voltage  controlled  frequency 
oscillator)  In  the  range  of  approximately  100-1000  Hz. 
Because  the  ramp  generator  does  not  exhibit  an  instantaneous 
return,  the  return  also  generates  a  down- frequency  response 
albeit  at  a  rate  greater  than  that  of  the  up-frequency  ramp. 


which  follow  the  amplifier.  If  the  amplitude  of  the 
amplified  filter  output  goes  above  the  threshold  set  at  the 
reference  input  of  the  LM3 11 -based  comparator  then  a  pulse 
is  developed  for  the  duration  that  the  input  signal  exceeds 
the  threshold  level.  A  negative-edge  triggered  74121-based 
one-shot  multivibrator  follows  the  comparator.  It  is 
designed  to  send  a  one  millisecond  pulse  to  the  counter 
stages  which  follow  any  time  the  comparator  detects  an  input 
signal  which  exceeds  the  threshold  level. 


Figure  3.8  Follow-Up  Pulse-Shaping  Logic  Circuitry 


Microcircuits 

Components 

1 : 

LM311  Op-Amp 

Rl: 

100  kO 

2  : 

74121  1  msec  One-Shot 

R2: 

20  kO 

3  : 

74161  4  Stage  Counter 

R3: 

15  kn 

4  : 

74161  4  Stage  Counter 

R4: 

4  70  kn 

5: 

7404  Inverter 

Cl : 

0.1  mF 

6  : 

555  0.5  sec  Timer 

C2: 

1.0  mF 

7: 

7432  AND  Gate 

8: 

7404  Inverter 

9  : 

7474  D-Type  Flip-Flop 

>  WS  . 
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«5 


First  Stage  Second  Stage 

Figure  3.7  Biquad  Elliptic  Band-Pass  Filter  Circuit 

sinusoidal  nature  and  inadequate  to  drive  a  microprocessor 
interrupt  designed  to  accommodate  TTL  logic  levels.  Thus  we 
must  Include  further  circuitry  into  our  design  which  will 
send  a  TTL  compatible  logical  signal  to  the  microprocessor 
when  the  APU  signal  is  detected.  The  circuit  which 
accomplishes  this  is  shown  in  Figure  3.8. 

The  output  from  the  filter  stages  is  first  sent  to  a 
linear  amplifier  constructed  around  a  741  op-amp.  Because 
the  APU  signal  is  low  voltage  out  of  the  microphone  detector 
it  is  necessary  to  amplify  the  filter  output  prior  to 
logical  evaluation. 

The  decision  of  whether  or  not  a  600  Hz  component  is 
present  is  the  function  of  comparator  and  counter  elements 
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possible  to  these  values  and  then  tuning  the  circuit  for  the 
desired  performance.  Tuning  is  accomplished  in  each  stage 
by  adjusting  R4  to  set  the  notch  frequency  f,,  R,  to  set 
the  center  frequency  f  0 »  R»  to  set  Q,  and  R,  or  R#  to 
set  the  gain. 


Table  3.4 


BIQUAD  ELLIPTIC  BAND-PASS  FILTER  COMPONENT  VALUES 


1st 

Stage 

2nd 

Stage 

Component 

Value 

Component 

Value 

Cx 

.00996 

Cx 

.01030 

Cx 

.00995 

Cx 

.01034 

Rr 

26.7 

Rt 

26.7 

R. 

25.7 

R. 

26.5 

R. 

10.5 

R» 

20.2 

R* 

14.8 

R* 

14.8 

R» 

25.7 

Rx 

26.6 

Rx 

785. 

Rx 

813. 

Rx 

437. 

Rx 

452. 

Note:  Capacitor  values  are  yuP,  resistor 

values  are  kO. 


The  resulting  schematic  for  the  fourth-order  Biquad 
elliptic  band-pass  filter  is  shown  in  Figure  3.7. 

2 .  Follow-Up  Logic  Circuitry 

When  the  band-pass  filter  is  implemented  the  effect 
is  to  produce  a  response  which  narrowly  limits  the  passband 
to  within  a  few  tens  of  hertz  about  the  center  frequency  of 
600  Hz.  Still,  the  output  of  this  filter  will  be  of 


similarly,  the  second  stage  values  are  given  by 


R. 

K6)  0^1 

R,  - 


D 

R,  =  - 

«,Ci 


ktJUc 

Rs  =  - - - 

KD(i) «  C  2 


R. 


CjR, 

C* 


In  Section  1  of  the  program  ABPDBP  (introduced  as 
Appendix  C)  we  calculate  the  resistor  values  for  the  Blquad 
band-pass  circuit  Just  discussed.  The  resulting  component 
values  which  were  thus  derived  are  shown  in  the  appendix  and 
are  also  Included  here  as  Table  3.4.  These  are  computed 
values  for  resistance  and  capacitance.  In  fact  the  circuit 
is  constructed  by  selecting  standard  values  as  close  as 


coefficients  and  the  derived  complements  we  have  already 
evaluated.  We  begin  our  development  by  choosing  a  standard 
value  for  Ci  (given  roughly  by  10/f«  ^l'B)  and 
then  proceeding  to  calculate  elemental  values.  In  the 
equations  which  follow  the  values  for  Cj  and  Rf 
are  arbitrary  within  limits,  and  are  chosen  to  minimize  the 
spread  of  resistance  values.  We  pick  C}=Ci  and 
Rf  »  l/(UaCt).  Ai ,  E  and  D  are  as  given  previously. 

The  first  stage  values  are  thus  [Ref.  6:  p.  126]: 


fCDci)  •  C  X 


R,  »  KR,y^ 
1 

R,  =  - 

Du«C  1 

A  - 

R.  =  -  /Rt/K 
C 

R. 

KAiUgC] 


HARDWARE  IMPLEMENTATION 


1 .  Blquad  Analog  Band-Pass  Elliptic  Filter 
There  are  many  ways  to  perform  a  hardware 
Implementation  of  the  analog  band-pass  transfer  function  we 
have  just  developed.  One  relatively  easy  method  employs  the 
use  of  op-amps  as  the  active  filter  component.  We  shall  use 
a  Blquad  op-amp  filter  Implementation  which  exhibits  good 
stability  and  ease  of  tuning.  Additionally,  implementation 
is  made  simpler  by  the  use  of  a  74124  quad  op-amp  microchip 
which  allows  a  single  chip  per  second-order  stage.  The 
generalized  circuit  diagram  for  a  second-order  stage  of  a 
Biquad  filter  is  shown  in  Figure  3.6  [Ref.  6:  p.  127]. 


Figure  3.6  Biquad  Elliptic  Filter  Circuit 


Component  resistor  and  capacitor  values  for  the 


Blquad  filter  depend  upon  the  low-pass  normalized 


Finally,  in  Figure  3.5  we  view  the  computer 
simulation  of  the  analog  filter  phase  response.  Although 


our  application  is  not  phase  dependent  (due  to  the  fact  that 
it  is  the  presence  alone  of  the  600  Hz  element  which  is  of 
concern  to  our  circuit--not  its  accurate  transmission) ,  we 
do  confirm  the  significant  effect  upon  phase  for  our 
elliptic  filter  in  the  passband  between  500  Hz  and  700  Hz. 
Between  these  two  frequencies  we  observe  a  360  degree  shift 
in' phase . 

ANBLOQ  ELLIPTIC  BPF  PURSE  RESPONSE 

PlIHSC  Vb  rRf.Q  tf 0-600  HZ) 


Figure  3,5  Analog  Elliptic  BPF  Frequency  Response 
(Computer  Simulated  Phase  Response) 


A.  ANALOG  BAND-PASS  TO  DIGITAL  BAND-PASS  FILTER  DESIGN 


An  analog- to-digltal  bilinear  trauisformation  makes  it 
possible  to  apply  a  relation  which  transforms  an  analog 
band-pass  filter  into  a  desired  band-pass  digital  design. 

We  will  realize  the  600  Hz  digital  bandpass  filter  by 
applying  the  bilinear  transformation  to  the  transfer 
fiinction  of  the  analog  band-pass  filter  we  developed  in 
Chapter  3.  Once  Implemented  we  will  examine  the  performance 
of  this  filter  in  view  of  our  goal  of  APU  start-up 
identification.  If  necessary  we  will  determine  which 
refinements  and  modifications  to  our  design  may  be  necessary 
to  realize  our  goal. 

We  recall  from  Chapter  3  that  the  transfer  function  of 
the  analog  elliptic  band-pass  filter  was  given  by  the 
product  of  the  two  second-order  functions  given  by  Eqs.  3.1 
and  3.2.  This  product  has  been  computed  (as  shown  in 
Appendix  C)  and  is  found  to  be 

V,  p(s«  +  Fs»  +  Gs*  +  Hs  +  J) 

Va  S*+Ms*+Ns*  +PS+Q 

where 


p  s  0.039811 
F  »  0 

G  =  29.587  X  10* 


H  »  0 


J  »  189.91  X  10»* 

M  =  0.24351  X  10* 

N  =  27.642  X  10* 

P  =  3.3558  X  10* 

Q  =  189.91  X  10»* 

The  poles  of  the  analog  band-pass  filter  transfer 
function  were  shown  (graphically  in  Figure  3.5)  to  be: 

-63.567  ±  3.8421j  x  10* 

-58.188  ±  3.5859j  x  10* 

The  analog  filter  is  therefore  stable. 

To  transform  the  analog  band-pass  transfer  function  into 
a  digital  version  we  will  use  the  Bilinear  Transformation 
[Ref.  8:  pp .  219-224]  which  is  characterized  by  the 
following  relation 

2  z  -  1 

S  =a  _  - 

T  Z  +  1  4.1 

This  transformation  will,  map  stable  analog  poles  which 
are  in  the  left-half  of  the  s-plane  into  the  interior  of  the 
unit  circle  in  the  z-plane.  thus  stability  is  preserved  in 
all  cases. 
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If  we  then  make  the  substitution  s  <>  ju  and  z  « 
into  Eq.  4.1  and  simplify,  we  can  establish  the  relationship 
between  the  frequencies  in  the  analog  and  digital  cases. 

(In  this  and  the  following  discussion  we  shall  denote 
frequencies  in  the  analog  case  with  an  overbar  (TS)  , 
and  those  in  the  digital  case  without  one  (u).) 

The  resulting  relation  is 

_  2  uT 

«  =  —  tan  — 

T  2  4.2 

where  T  is  the  sample  period  given  by  1/f i  .  In  this 
case  fs  =  (6.666  x  10*)/ (4  x  192),  which  we  will 
show  shortly.  This  results  in  T  =  1.15212  x  10"*. 

This  relationship  between  analog  and  digital  frequencies 
is  shown  in  Figure  4.2  and  reveals  that  the  Bilinear 
Transform  does  not  provide  a  linear  mapping  from  one 
function  to  another.  The  frequency  range  from  0  to  oo 
in  the  continuous  case  is  warped  into  the  frequency  range 
from  0  to  tt/T  in  the  digital  case. 

Therefore,  if  we  have  an  analog  filter  with  transfer 
function  H(s),  we  may  then  perform  the  following 
substitution  dictated  by  Eq.  4.1 


H(z)  =  H(s) I 


s=(2/T)((2-l)/(z+l)  ] 


4 . 3 


Another  way  of  expressing  this  same  relation  is 

H^e^"’’’’)  =  ^  (2/T)  tan  wT/2 

Using  this  relation  the  characteristics  of  H{z)  can  be 
obtained  graphically  from  those  of  H(s)  as  shown  in 
Figure  4.2  [Ref.  5:  p.  262]. 


Figure  4.2  The  Bilinear  Transformation 
(showing  analog  and  digital  transfer  functions 
and  the  non-linear  warping  of  frequencies.) 

We  see  from  the  figure  that  there  is  no  aliasing  problem 
associated  with  the  transform  because  the  frequency  is 
limited  to  less  than  ir/T  (8680^)  in  the  digital 
case.  However,  because  of  the  frequency  warping  we  have  to 
make  a  proper  transform  of  frequency  according  to  Eq.  4.2 


before  application  of  the  Bilinear  Transform.  Consequently, 
for  a  transformation  of  the  analog  band-pass  filter  derived 
as  Eq.  3.3,  we  must  substitute  f«  »  590.825  Hz  for 
f,  a  600  Hz  before  application  of  the  Bilinear 
Transform  to  ensure  a  proper  transformation  to  the  digital 
domain.  Once  this  Is  accomplished  all  we  need  do  Is  apply 
the  Bilinear  Transform  to  the  resulting  "pre-warped"  analog 
band-pass  filter  transfer  f^mctlon. 

The  FORTRAN  based  computer  program  previously  Introduced 
In  Appendix  C  also  provides  for  this  development  and 
Implements  Eqs.  4.2  and  4.3  to  derive  the  following  digital 
transfer  fxinctlon  H(z~^)  for  the  desired  digital 
band-pass  filter 

p(l  +  Pz-»  +  Gz-»  +  Hz-»  +  Jz-*) 

H(2-l)  a  - 

1  +  MZ-»  +  NZ-*  +  Pz-»  +  Qz-*  4.4 

where  the  constants  are  as  follows 

p  >  0.039516 
F  =  -3.6279 
G  a  5.2861 
H  =  -3.6279 
J  =  1.0000 
M  =  -3.6251 


N  >  5.2586 


Q  »  0.97353 


The  poles  of  the  transfer  function  given  by  Eq.  4.4  are 

0.90781  ±  0.40813j  (Magnitude  =  .99533) 

0.90475  ±  0.40493j  (Magnitude  »  .99123) 


PQLE/ZERO  PLOT  FOR  DIGITRL  BPP 


lA 


Figure  4.3  Pole/Zero  Plot  for  the  Digital  Elliptic 
Band-Pass  Filter  (poles  appear  singular,  but  are 
in  fact  double  and  nearly  coincident) 


and  thus  we  confirm  the  mapping  of  stable  poles  in  the 
analog  domain  into  stable  digital  poles  located  inside  the 
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unit  circle.  This  digital  pole/zero  plot  Is  shown 
graphically  In  Figure  4.3  on  the  previous  page. 

B.  DIGITAL  BAND-PASS  FILTER  SIMULATION 

Equation  4.4  represents  the  digital  filter  transfer 
fxinctlon  equivalent  to  the  analog  filter  transfer  function 
we  presented  In  Chapter  3.  In  a  manner  completely  analogous 
to  that  development  we  are  now  able  to  demonstrate  a 
computer  graphical  simulation  of  the  digital  filter 
frequency  and  phase  response  and  compare  these  to  the 
previous  results.  The  FORTRAN  program  used  to  present  this 
graphical  output  Is  included  in  Appendix  E  under  the  title 
DBPFR . 

In  Figure  4.4  we  see  the  digital  filter  frequency 
response  and  observe  that  it  is  nearly  identical  to  the 
analog  response  in  consonance  with  our  design  goal.  The 
minor  differences  are  remarkable  and  explicable.  The  center 
frequency  of  the  digital  filter  is  diminished  to  the  pre¬ 
warped  center  frequency  of  approximately  591  Hz. 
Additionally,  the  two  peaks  of  the  amplitude  response 
located  at  about  585  Hz  and  595  Hz  are  not  of  equal 
magnitude.  This  is  due  to  the  difference  of  pole  proximity 
to  the  unit  circle.  Although  the  poles  appear  coincidental 
in  the  graphical  presentation  in  Figure  4.3,  they  are 
actually  distinct;  the  pole  nearer  to  the  real  axis  is  some 
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.004  units  closer  to  the  unit  circle  which  accounts  for  the 
amplitude  disparity  between  the  two  poles. 


DIGITRL  ELLIPTIC  BPP  FREQUENCY  RESPONSE 

NORnPilZED  RnPLiTUQE  vS  TRCQ  (rO-590  HI) 


Figure  4.4  Digital  Elliptic  BPP  Frequency  Response 
(Computer  Simulated  Amplitude  Response) 

In  Figure  4.5  we  observe  the  digital  filter  frequency 
response  as  measured  In  dB.  This  curve  appears  somewhat 
different  from  its  analog  counterpart  but  the  important 
feature  Is  maintained.  A  steep  filter  rolloff  is  realized 
out  of  the  passband  and  the  response  Is  diminished  by  about 
30  dB  at  approximately  500  Hz  and  700  Hz  according  to  design 
specifications.  Although  the  analog  filter  did  not  deviate 
much  from  this  30  dB  down  figure  we  see  an  added  benefit  of 
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the  digital  filter  wherein  the  rolloff  continues 
monotonlcally  over  our  observed  spectrum. 


DIGITAL  ELLIPTIC  EPP  FREQUENCY  RESPONSE 

HflPLlTUQE  I  OB  I  VS  FRCC  iro-S30  HZ) 


Figure  4.5  Digital  Elliptic  BPF  Frequency  Response 
(Computer  Simulated  Amplitude  Response  In  dB) 

Finally,  in  Figure  4.6  we  observe  the  phase  response  of 
our  digital  filter.  Once  again  this  closely  approximates 
the  severe  phase  distortion  we  observed  with  the  analog 
filter  although. the  center  frequency  is  again  confirmed  to 
be  significantly  less  than  the  nominal  600  Hz  we  expected  of 
the  earlier  filter  design.  To  reiterate,  this  phase 
distortion  is  a  hallmark  of  elliptic  filters  and  the 
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Bilinear  transformation,  but  our  application  is  not  phase 
dependent.  Thus  we  may  ignore  this  effect. 


DIGITAL  ELLIPTIC  BPE  PHASE  RESPONSE 

PHASE  I DEGREES  1  VS  FREQ  IF0-S90  HZ  I 


Figure  4.6  Digital  Elliptic  BPF  Frequency  Response 
(Computer  Simulated  Phase  Response) 


C.  DIFFERENCE  EQUATION  REPRESENTATION 

The  transfer  function  for  the  fourth  order  Elliptic 
Filter  was  given  previously  in  Equation  4.4.  Section  4  of 
the  program  ABPDBP  introduced  earlier  in  Appendix  C 
accomplishes  a  transformation  of  this  quotient  of  fourth 
order  polynomials  and  provides  an  equivalent  cascaded 
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representation  of  two  second  order  filter  stage  blocks,  each 
of  the  form 


H(z)  a,  t  a^z-^i.-aig.-L 

X(z)  b,  +  biZ-*+  b,z-* 

where  X(z)  and  Y(z)  refer  to  the  filter  Input  and 
output , respectively .  The  values  of  the  dual  quadratic 
coefficients  of  the  cascaded  second  order  transfer  function 
and  as  computed  by  the  program  In  Appendix  4  are  given  in 
Table  4.1. 


Table  4.1 

ELLIPTIC  BPF  SECOND  ORDER  STAGE  COEFFICIENTS 


1st  Stage  2nd  Stage 


Coefficient 

Value 

Coefficient 

Value 

a. 

1.0000 

a. 

1.0000 

a* 

-1.7503 

a, 

-1.8780 

a. 

1.0017 

at 

0.9981 

b. 

1.0000 

b. 

1.0000 

b. 

-1.8163 

bt 

-1.8092 

b. 

0.9910 

b. 

0.9822 

Both  second  order  z-domaln  filter  stage  transfer 
functions  can  be  manipulated  in  a  familiar  way  to  realize 
the  following  z-domaln  difference  equation. 


b,Y(z)  =  a,X(2)  +  aaX(2)2-»  +  a,X(2)z-* 

-  b,Y(z)z-*  -  b,Y(z)z-* 


Applying  the  inverse  z-transform  to  this  z-domain 
difference  equation  yields  the  time  domain  digital 
difference  equation  . 


b,y(k)  =  a.x(k)  +  aiX(k-l)  +  a,x{k-2) 
-  b,y(k-l)  -  b,y(k-2) 


4.5 


The  Signal  Flow  Graph  corresponding  to  the  difference 
equation  given  by  Eq.  4.5  is  shown  in  Figure  4.7.  The 
difference  equation  representation  is  important  because  thl 
is  the  basis  for  the  hardware  Implementation  of  the  digital 
filter  which  shall  follow  in  Chapter  5. 


Figure  4.7  Second  Order  Stage  Signal  Flow  Graph 


D.  DIFFERENCE  EQUATION  IMPLEMENTATION  SIMULATION 

We  have  just  stated  that  the  difference  equation 
representation  of  the  digital  filter  will  become  the  basis 
for  the  INTEL  2920  Signal  Processor  implementation  which  Is 
to  follow.  In  order  to  show  the  adequacy  of  this  method  of 
implementation  it  is  useful  to  demonstrate  the  impulse 
response  and  filter  frequency  response  by  computer 
simulation.  In  the  following  chapter  sections  we  will 
demonstrate  these  simulations  and  show  that  they  yield 
results  in  keeping  with  our  design  expectations. 

1 .  Digital  Filter  Impulse  Response 

In  Appendix  F  is  presented  the  complementary  FORTRAN 
programs  S22I  and  S22IG.  Both  implement  the  impulse 
response  simulation  for  the  difference  equation 
representation  of  the  digital  elliptic  band-pass  filter.  In 
the  case  of  S22I  the  output  is  digital  and  is  shown  to 
exemplify  the  filter  response  over  a  greater  period  of  time 
than  is  usefully  represented  otherwise.  In  the  case  of 
S22IG  the  output  is  graphical  and  will  be  presented  here. 

In  both  these  programs  the  impulse  is  equal  to  the 
greatest  allowable  input  which  guarantees  an  output  of  less 
than  unity.  This  is  done  for  reasons  of  filter  stability  as 
well  as  a  limitation  of  the  INTEL  2920  which  will  be 
discussed  in  the  next  chapter.  By  examining  the  impulse 
response  we  confirm  the  stability  of  the  filter  design  by 
ensuring  that  the  output  decays  to  zero  over  time.  In 


addition  we  can  observe  the  natural  response  of  the  system 
by  establishing  the  frequency  of  the  decaying  sinusoid. 
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Figure  4.8  Digital  Filter  Impulse  Response 


In  Figure  4.8  we  observe  the  the  response  of  the  two 
stage  difference  equation  filter  for  an  input  of  0.0172 
applied  at  time  T  =  0.  By  counting  the  number  of  cycles 
which  occur  over  a  corresponding  number  of  iterations,  and 
realizing  that  the  sample  period  is  0.11521  milliseconds  we 
arrive  at  natural  frequency  which  is  very  close  to  the 
expected  600  Hz.  Additionally,  it  is  apparently  true  that 
the  response  decays  to  zero  with  time,  at  least  over  the 


Although  we  have  ensured  an  input  less  than  one  volt 
this  is  not  sufficient  to  guarantee  that  the  post-processing 
value  will  not  exceed  the  internal  arithmetic  limit. 

Internal  arithmetic  is  limited  to  a  range  of  values  which 
cannot  exceed  -1.00000000  to  -t-0 . 99999999 .  These  8  decimal 
place  accuracies  are  established  by  the  internal  25  binary 
bits  (1  sign  bit  and  24  magnitude  bits)  available  for 
arithmetic  computations  within  the  2920.  Actually  the  range 
of  multiplicative  inputs  is  only  good  to  within  4  decimal 
places  due  to  the  scaling  problem.  But  this  will  be  seen  to 
be  more  than  adequate  for  our  purposes . 

To  ensure  that  the  processed  values  do  not  exceed 
one  volt  we  scale  down  the  digitally  sampled  input  value  by 
64  by  way  of  program  step  44.  The  difference  equation 
manipulations  of  the  input  value  are  then  accomplished  in 
program  steps  47  through  130. 

Digital  arithmetic  is  performed  in  the  2920  by  means 
of  binary  shifting  and  adding  which  is  predicated  on  a 
transformation  of  coefficients  to  a  nearest  binary 
equivalent.  The  FORTRAN  program  and  its  output  which 
performs  this  transformation  is  labelled  CTRANS2  and  is 
shown  in  Appendix  I.  Although  a  binary  transformation  does 
involve  some  approximation  error,  we  see  in  the  appendix 
that  the  worst  case  approximation  of  coefficients  is  still 
within  .02  percent  of  the  actual  value.  This  is  a 
relatively  insignificant  error. 
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0.  A  2920  DIGITAL  FILTER  IMPLEMENTATION 

Here  we  shall  describe  the  particular  2920  software  and 
hardware  components  which  comprise  the  digital  filter. 

1 .  2920  Assembly  Language  Program 

In  Appendix  H  we  find  the  2920  assembly  language 
program  which  Implements  the  two  stage  difference  equation 
developed  in  Chapter  4.  Recognizing  the  characteristics  of 
the  2920  processor,  it  is  Instructive  to  review  the 
programming  devices  which  are  brought  to  bear  to  realize 
this  filter.  We  will  proceed  in  the  order  in  which  these 
devices  are  used  in  the  program.  Appendix  H  should  be 
consulted  as  reference  for  the  discussion  which  follows.  A 
detailed  discussion  of  the  2920  Assembly  Language  should  be 
consulted  for  particulars  concerning  the  language  [Ref.  11]. 

After  initializing  the  DAR  register  we  accept  the 
input  analog  sample  from  the  sensor  microphone/preamplifier 
ensuring  that  the  level  does  not  exceed  1.0  volts.  This 
limit  is  established  by  the  voltage  reference  circuitry  at 
pin  #8  of  the  2920.  The  input  analog  value  is  stored  in  the 
Sample/Hold  register. 

We  then  begin  a  sequence  of  steps,  according  to  2920 
protocol,  which  accomplish  the  analog  to  digital 
transformation  of  the  input  value  in  the  Sample/Hold 
register.  This  procedure  is  completed  at  program  step  43 
and  the  resulting  digital  value  is  then  found  in  the  DAR 


register . 
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Figure  5.2  SDK-2920  Monitor  Command  Structure 


of  the  SDK-2920  by  examination  of  inputs  and  outputs.  The 
applications  board  is  shown  in  Figure  5.3  on  the  page 
following.  Provisions  are  made  on  the  board  for  assembly  of 
either  internal  or  external  clocks,  four  input  and  four 
output  channels  with  associated  waveshaping  circuitry, 
reference  voltage  development,  and  two  user  breadboard  areas 
for  specific  applications  development.  Furthermore,  TTL 
compatible  output  signals  can  be  delivered  to  the  output 
vice  analog  outputs  if  desired.  We  shall  make  use  of  this 
feature  to  send  a  signal  detection  pulse  when  the  APU 
ignition  is  detected. 
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Applications  software  was  developed  using  an  Intel lec 
Microcomputer  Development  System  running  a  2920  Assembly 
Program  and  Software  Simulator.  Transfer  of  2920  software 
between  the  development  system  and  the  SDK-2920  is  easily 
accomplished. 

The  SDK-2920  is  physically  divided  into  a  development 
side  and  an  applications  side.  The  development  side  can  be 
used  to  load,  test  and  modify  EPROM  resident  programs  under 
8085A  microprocessor  control.  System  control  is 
accomplished  with  the  use  of  a  keypad  monitor.  The 
composition  and  hierarchy  of  the  monitor  command  structure 
is  shown  in  Figure  5.2  on  the  following  page. 

The  applications  side  includes  a  prototype  area  for 
circuit  construction  and  testing.  It  functions 
independently  of  the  development  side.  After  program 
development  has  taken  place  two  methods  may  be  used  to 
accomplish  program  verification.  The  first  method  uses  the 
Intel  SM2920  Simulator  Software  to  simulate  the  execution  of 
programs  written  for  the  2920.  This  simulator  allows  the 
use  of  symbolic  references  for  changing  and  displaying  all 
2920  registers,  flags  and  user-defined  locations  in  program 
and  memory  storage.  A  trace  feature  also  allows  monitoring 
of  selected  parameters  as  they  are  changed  under  program 
control . 

The  second  method  of  2920  program  verification  is  done 
by  monitoring  circuit  performance  on  the  applications  side 
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these  functions  the  analog  section  Includes  the  following 
subsections : 


—  a  four  input  multiplexer 

—  an  input  sample-and-hold  circuit 

—  a  D/A  converter 

—  a  comparator 

—  an  output  multiplexer  with  eight  output  sample-and-hold 
and  buffer  amplifiers. 

. —  a  special  digltal-to-analog  (DAR)  register  which  acts 
as  an  interface  between  the  digital  and  analog 
sections . 


C.  THE  SOK-2920  DEVELOPMENT  SYSTEM 

The  SDK-2920  Development  System  is  an  integral  component 
in  the  development  of  any  applications  package  which  uses  at 
its  core  the  INTEL  2920  Analog  Signal  Processor  [Ref.  10]. 
Within  the  scope  of  the  system  are  many  development 
capabilities  including 

—  Breadboarding:  The  breadboard  is  used  to  develop 
circuits  for  evaluation  or  prototype  applications. 

—  Assembling  and  Editing:  This  feature  is  comprised  of 
an  assembler,  disassembler,  hexadecimal  display, 
symbolic  2920  Instruction  display,  and  single 
keystroke  entry  of  many  2920  instruction  fields. 

—  2920  EPROM  Programming:  The  development  bo^rd  includes 
hardware  and  control  elements  necessary  to  program  the 
2920. 

—  Communications:  The  development  also  interfaces  with 
Intel  Developments  Systems  (such  as  the  Intellec 
Series)  to  pass  object  and  source  code  listings  of  2920 
programs . 
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function,  any  applications  program  cannot  make  use  of  more 
than  192  instructions  to  process  whatever  number  of  input 
and  output  signals  are  being  manipulated.  But  despite  this 
restriction  the  power  of  the  2920  is  evident.  In  our 
application  we  will  only  make  use  of  a  single  input/output 
channel . 

B.  2920  FUNCTIONAL  DESCRIPTION 

Figure  5.1  on  the  previous  page  details  the  block 
configuration  of  the  2920  [Ref.  9].  It  is  divided  into  the 
three  major  subsections  described  as  follows. 

The  192  X  24-bit  Program  Memory  Section  is  a  storage 
area  implemented  with  EPROM.  This  section  includes  the 
instruction  clock  and  timing  circuits  and  program  counter 
which  control  the  operation  of  the  entire  device,  including 
the  other  two  sections. 

The  Arithmetic  Section  includes  a  40  word  by  25-bit 
scratchpad  RAM  and  an  arithmetic  and  logic  unit  (ALU) .  Both 
the  RAM  and  the  ALU  are  two  port  access  devices.  In  the 
case  of  the  ALU  one  of  the  ports  is  passed  through  a  barrel 
shifter  scaler.  The  function  of  the  arithmetic  section  of 
the  2920  is  to  execute  the  commands  dictated  by  the  program 
memory . 

The  Analog  Section  performs  A/D  and  D/A  functions  upon 
command  from  the  program  memory.  In  order  to  implement 
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In  addition,  to  the  precision  and  speed  of  computation 
which  the  2920  offers,  it  also  allows  for  sequential  - 
processing  of  up  to  four  separate  input  signals  and  eight 
analog  output  signals  in  a  single  program  pass.  This  is  of 
course  dependent  upon  program  complexity — regardless  of 
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Figure  5.1  2920  Functional  Block  Diagram 
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Several  logical  conditions  are  allowed  which  affect  program 
manipulation  of  data,  but  none  will  cause  the  processor  to  - 
execute  a  prograua  step  out  of  sequence .  In  fact  the  only 
effective  jvunp  is  performed  at  the  last  instruction  which 
provides  for  a  return  to  the  beginning  of  the  program  loop. 
In  this  way  the  programmer  may  provide  for  an  exact  digital 
sample  interval  based  upon  program  loop  execution  time.  The 
shorter  the  program  implementation  loop  the  greater  is  the 
processor  capacity  to  provide  a  faster  sampling  frequency. 

The  necessity  of  providing  for  an  accurate  sampling 
interval  arises  out  of  an  understanding  of  the 
characteristics  of  the  sampled  analog  signal  being 
processed.  Without  an  accurate  clock  interval,  provided  for 
in  the  2920  by  the  program  execution  loop  time,  significant 
noise  can  be  introduced  in  the  system.  Even  small 
variations  in  the  sampling  interval  can  render  the  analysis 
useless  through  the  introduction  of  intolerable  measurement 
noise. 

Each  2920  program  instruction  requires  four  clock  cycles 
to  execute.  Given  our  nominal  6.666  MHz  clock  (the  maximum 
allowed)  the  2920  can  therefore  realize  a  maximum  sampling 
frequency  of  8.680  kHz  over  a  192  instruction  program  loop. 
This  allows  for  a  device  bandwidth  of  greater  than  4  kHz. 
Shorter  programs  naturally  allow  for  a  greater  sampling 
frequency  and  thus  higher  device  bandwidth. 
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V.  THE  INTEL  2920  ANALOG  SIGNAL  PROCESSOR 


A.  OVERVIEW 

The  INTEL  2920  Analog  Signal  Processor  is  actually  a 
digital  processor  which  is  implemented  to  perform  analog 
signal  processing  functions.  Introduced  in  1979,  the  2920 
system  is  centered  about  the  2920  single-chip  microcomputer 
which  is  specially  designed  to  process  real-time  analog 
signals.  This  single  chip  includes  within  its  28-pln  DIP 
configuration  sufficient  hardware  to  provide  192  program 
memory  locations,  scratchpad  memory,  digital  to  analog  (D/A) 
circuitry  for  up  to  four  separate  sampled  Inputs,  analog  to 
digital  (A/D)  capabilities  for  eight  individual  outputs,  a 
digital  pipeline  processor  capable  of  up  to  twenty-five  bit 
accuracy,  and  input/output  (I/O)  control  circuitry  [Ref.  7: 
p.  3-1  through  3-2]  .  The  2920  is  capable  of  implementing  a 
wide  variety  of  functions  which  rely  upon  sampled  digital 
data  techniques.  We  will  use  the  2920  to  implement  our 
matched  filter  design  which  will  detect  the  APU  start. 

At  the  heart  of  the  2920 's  significant  power  Is  its  on¬ 
board  erasable  programmable  read-only  memory  (EPROM)  which 
allows  the  user  the  convenience  of  customizing  the  2920  for 
each  intended  application.  Because  the  2920  is  a  pipeline 
processor  all  program  steps  are  performed  sequentially 
without  any  conditions  which  may  impact  upon  execution  time. 
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filter.  We  shall  see  In  the  discussion  which  follows. that 
the  sampling  frequency  will  be  8680  Hz.  Thus  our  band  of 
input  frequencies  is  limited  to  less  than  one-half  of  this 
value,  or  4340  Hz.  Because  our  frequency  of  interest  is  600 
Hz  we  have  considerable  freedom  in  choosing  the  cut-off 
frequency  of  our  anti-aliasing  filter. 

One  option  available  to  us  is  to  design  a  low-pass 
filter  with  a  rolloff  which  meets  our  needs.  However,  there 
are  such  filters  commercially  available  which  implement  a 
compatible  response  which  minimizes  the  effort  required  of 
the  designer.  One  such  filter  is  the  INTEL  2912A  which  has 
been  specifically  included  in  the  hardware  kit  we  shall  use 
to  implement  the  digital  filter  we  have  just  developed. 

This  hardware  implementation  is  the  subject  of  Chapter  5. 


output  at  600  Hz  Is  significantly  less  than  at  590  Hz  and 
even  575  Hz.  This  Is  Indicative  of  both  a  steeper  filter 
rolloff  at  frequencies  greater  than  the  center  frequency  and 
the  effect  of  coefficient  approximation  which  will  be 
discussed  more  fully  In  the  next  chapter.  The  frequency 
response  at  both  500  Hz  and  700  Hz  Is  expectedly  minimal  but 
may  not  be  usably  low.  If  we  find  that  the  filter  rolloff 
Is  not  great  enough  and  the  response  out  of  the  passband  is 
too  great  for  our  purposes  then  further  design  modifications 
may  be  undertaken.  Accordingly,  we  could  Increase  the  order 
of  our  filter  design.  This  would  Increase  the  number  of 
filter  stages  In  the  analog  Implementation  and  therefore  the 
complexity  of  that  design.  But,  as  we  shall  see,  to  a 
certain  extent  this  additional  filter  complexity  in  the 
difference  equation  may  be  absorbed  by  the  digital 
Implementation  we  shall  pursue  without  any  increase  in  the 
hardware.  These  considerations  will  have  to  be  examined 
more  completely  in  the  final  analysis  of  the  filter  design 
effectiveness . 

E.  ANTI-ALIASING  FILTER 

When  implementing  a  digital  filter  it  is  necessary  to 
employ  an  analog  input  anti-aliasing  filter  to  limit  the 
band  of  input  frequencies  to  less  than  half  of  the  Nyquist 
sampling  rate.  This  corresponds  to  the  need  to  implement  a 
low-pass  filter  at  the  input  to  the  digital  band-pass 


data  to  recreate  the  frequency  response.  This  is  shown  in 
Figure  4.9.  The  figure  confirms  a  narrow  band-pass  filter 
function  with  a  center  frequency  at  approximately  585  Hz. 
This  is  very  close  to  the  design  center  frequency  of  591  Hz 
and  is,  in  fact,  within  the  error  of  a  single  bar  in  this 
pattern  representation. 

2 .  Digital  Filter  Frequency  Response 

Now  that  we  have  confirmed  the  stability  of  our 
filter  design  we  can  proceed  to  examine  the  frequency 
response  of  the  filter  over  the  range  of  interest.  In 
particular  we  shall  examine  the  filter  frequency  response 
over  several  frequencies  in  the  range  of  500  Hz  to  700  Hz. 
The  FORTRAN  programs  which  allow  this  examination  are  S22F 
and  S22FG  which  are  included  as  Appendix  G  to  this  thesis. 
Due  to  the  number  of  output  figures  they  will  be  left  in  the 
appendix  and  we  shall  only  give  a  sununary  of  their  content. 

The  digital  filter  frequency  response  was  examined 
for  the  following  frequencies:  500,  575,  590.825,  600,  625 
and  700  Hz.  The  590.825  simulation  was  chosen  because  this 
is  the  design  center  frequency  (due  to  pre-warping)  and  we 
wish  to  confirm  an  output  maximum  amplitude  at  this 
frequency.  From  the  figures  in  the  appendix  it  is  easy  to 
see  that  the  filter  does  in  fact  yield  the  response  we 
desire.  The  maximum  output  amplitude  does  occur  for  the 
expected  frequency,  although  the  output  at  575  Hz  does  not 


diminish  appreciably  from  this  value.  However,  we  observe 


After  the  difference  equation  Implementation  In  each 


program  pass  we  are  left  with  a  binary  value  In  the  DAR 
register  which  corresponds  to  the  program  output  for  that 
pass.  We  have  the  option  of  providing  a  certain  amount  of 
linear  output  gain  by  an  appropriate  shift  of  the  output 
binary  value  now  In  the  DAR.  In  program  step  132  we  provide 
a  gain  of  four  by  a  left  shift  of  two  binary  positions.  We 
output  this  value  to  channel  0  in  steps  139  through  142. 

The  final  program  manipulation  occurs  In  program 
steps  143  to  150.  Here  we  perform  a  serial  register  shift 
of  present  program  pass  values  In  preparation  for  the  next 
program  pass.  Program  step  191  Is  the  final  executable 
statement  which  returns  us  to  step  0  for  the  next  pass.  The 
entirety  of  the  2920  operation  consists  of  an  endless  loop 
of  these  Instructions. 

2 .  2920  Hardware  Implementation 

The  2920  contains  an  EPROM  which  is  loaded  with  the 
hexadecimal  code  which  is  equivalent  to  the  assembly 
language  program  just  described.  However,  there  are  several 
other  component  devices  which  are  integral  to  the  operation 
of  the  2920.  The  relation  of  these  devices  to  the  2920  will 
now  be  described.  A  graphical  schematic  of  these  components 
appears  in  Figure  5.4. 

At  the  input  side  of  the  2920  an  anti- aliasing 
filter  is  realized  by  using  a  2912A  which  actually  contains 
two  filters  which  are  cascaded  together.  This  configuration 


Figure  5.4  2920  Digital  Filter  Schematic 

provides  54  dB  of  input  dynamic  range  and  a  nearly  flat 
response  for  freguencies  less  than  3  kHz.  There  a  steep 
roll-off  commences  and  at  about  4  kHz  the  cascaded  filter 
combination  provides  over  30  dB  of  attenuation.  This 
supports  the  Nyquist  frequency  limit  which  is  4.34  kHz  in 
this  application. 

The  2912A  is  a  pulse  code  modulated  filter  which 
requires  a  clocking  input  to  realize  its  filter  function. 
This  is  provided  by  the  74624  at  its  input. 

At  the  output  of  the  2920  another  2912A  is  employed 
in  identical  configuration  and  now  provides  a  reconstruction 
filter  for  our  application.  This  filter  smooths  the  output 


of  the  2920  to  provide  an  analog  signal  for  follow-on  logic 
discrimination  as  shown  earlier  In  Chapter  3. 

A  2920  option  which  Is  not  demonstrated  here  yet 
will  be  employed  In  final  filter  configuration  Is  to  obviate 
the  need  for  external  signal  conditioning  by  allowing 
program  discrimination  of  the  output  value  and  thus 
providing  a  processed  TTL  signal  output.  This  eliminates 
the  need  for  the  external  circuitry  shown  In  Figure  3.8  and 
therefore  represents  one  significant  advantage  of  the  2920 
digital  design  over  the  analog  Implementation. 

E.  2920  DIGITAL  FILTER  IMPLEMENTATION  RESULTS 

We  will  now  proceed  to  demonstrate  the  results  of  the 
2920  digital  filter  Implementation  In  much  the  same  manner 
as  the  presentation  which  accompanied  the  analog  filter 
design  In  Chapter  3.  We  begin  with  a  photograph  of  the 
digital  filter  frequency  response  to  a  ramped  sinusoidal 
input.  This  Is  shown  in  Figure  5.5.  The  same  method  was 
used  to  generate  the  sweep  oscillation  although  the  range  of 
sweep  is  not  identical  to  that  employed  in  generating 
Figure  3.9.  The  result  is  that  we  cannot  guarantee  the 
narrow  bandwidth  of  this  digital  filter  relative  to  its 
analog  counterpart  by  this  means  alone.  The  Intent  is,  as 
before,  only  to  demonstrate  that  a  narrow  band-pass  filter 
response  is  generated. 


Figure  5.5  Digital  Elliptic  BPF  Frequency  Response 
(Photograph  of  Actual  Filter  Amplitude  Response 
to  a  Ramped  Sinusoidal  Input) 


To  confirm  the  operation  at  the  desired  band-pass  center 
frequency  we  next  apply  discrete  sinusoidal  inputs  to  the 
digital  filter  at  various  frequencies  arrayed  about  600  Hz. 
The  result  is  the  digital  analog  to  Figure  3.10  which  is 
shown  here  as  Figure  5.6.  The  scale  is  maintained  as  in 
Figure  3.10.  The  input  frequencies  are  at  about  double  the 
amplitude  of  the  analog  filter  to  ensure  proper  operation. 
This  implies  that  despite  the  relative  immunity  of  the 
digital  filter  to  input  amplitude  variations  we  must 
nontheless  provide  an  input  above  approximately  100 
millivolts  peak- to-peak .  However,  once  above  this  threshold 


value  the  digital  filter  provided  a  relatively  undlstorted 
and  largely  constant  amplitude  output  up  to  an  input 
amplitude  of  over  6  volts  peak-to-peak  (and  this  despite  the 
1  volt  reference  level  of  the  input).  Figure  5.6  thus 
confirms  the  center  frequency  maximum  at  a  value  near  600  Hz 
and  a  steep  roll-off  on  either  side  of  this  value. 
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VI. 


ALTERNATIVE  FILTER  CONCEPTS 


The  preceding  development  was  based  upon  techniques  used 
in  implementing  an  Infinite  Impulse  Response  (HR)  digital 
filter.  Simply  stated,  an  HR  filter  realizes  its  output 
based  upon  the  values  of  all  present  and  previous  inputs  and 
outputs.  In  other  words,  feedback  is  employed  in  an  HR 
design. 

In  the  general  case,  an  HR  filter  will  have  M  finite 
zeroes  and  N  finite  poles.  The  zeroes  of  H(z)  can  be 
anywhere  in  the  z-plane  but  the  poles  must  lie  within  the 
unit  circle  to  guarantee  stability.  In  the  case  we  have 
developed,  a  digital  filter  realization  derived  from  an 
analog  design,  the  order  of  M  must  be  less  than  or  equal  to 
N.  This  describes  an  Nth  order  digital  filter. 

The  hardware  implementation  of  an  HR  design  usually 
involves  the  cascading  of  elemental  single  pole  filters  with 
double  complex  pole  filters.  These  elements  are  derived 
from  the  original  transfer  function  using  a  partial  fraction 
expansion  separation  scheme. 

There  are  other  methods  for  realizing  the  filter  we 
desire  other  than  the  a  priori  scheme  we  have  developed  so 
far.  These  generally  use  the  input  signal  itself  as  a  basis 
for  the  filter  transfer  function  coefficients  and  involve  an 


adaptive  evaluation  of  the  proper  coefficients  which  yield 
the  desired  filter  response. 

A.  A  WIENER  FILTER  DESIGN — THE  ADAPTIVE  LINEAR  COMBINER 

The  Adaptive  Linear  Combiner  (ALC),  shown  in  Figure  6.1, 
forms  the  basis  for  the  Adaptive  Filter  design  we  shall  now 
discuss  [Ref.  12].  An  input  analog  signal  may  be  digitally 
sampled  in  accordance  with  the  Nyquist  criterion  and  we  may 
then  apply  N  sequential  elements  of  that  sample  block  to 


Figure  6.1  The  Adaptive  Linear  Combiner 


the  ALC  inputs.  These  inputs  can  be  easily  derived  from  a 
tapped  delay  line  which  cascades  sample  values  along  in 
sequential  storage  for  processing.  This  scheme  lends  itself 
well  to  implementation  in  a  processor  such  as  the  2920  which 
is  designed  to  accept  sequential  values  by  way  of  its 
component  A/D  converter  and  RAM  storage. 
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The  set  of  measurements  Xnj  Is  multiplied  by  a 
corresponding  weighting  term  Wi ,  and  the  results  then 
summed  to  yield  the  output  yj.  This  output  Is  then 
compared  to  a  desired  signal  value  for  that  Instant  and  the 
difference  between  them  constitutes  an  error  signal  €j. 

The  objective  of  the  ALC  Is  to  determine  Wi  so  as  to 
minimize  e j  for  each  set  of  sampled  Inputs  and  thus 
realize  the  weighted  sum  of  Input  signals  that  best  matches 
the  desired  response. 

1 .  Theoretical  Foundations 

At  the  nth  Instant  of  time  the  output  of  the 
Non-Recurslve  Wiener  ALC,  y{n) ,  Is  given  by  [Ref.  13]: 

N 

y(n)  x{n-j)Wj 
j=0 

=  WoX(n)  +  Wjx(n-l)  +.  .  .  +  Wj^x(n-N) 
which  may  be  written  In  matrix  form  as 

=  w'^x 

or  equivalently 

=  x'^w 

where  T  represents  the  matrix  transpose  operator,  the  set  of 
N+1  weights  is  denoted  by 


[W*  w,  . . . 


Wn3 


and  the  set  of  present  and  N  previous  inputs  is  given  by 

=  [x(n)  x(n-l)  ...  x(n-N)] 

The  error  signal  e(n)  for  time  n  is  given  by 

e(n)  =  d(n)  -  y(n) 

=  d(n)  -  w'^X 


and  the  square  of  the  error  (using  the  latter  matrix 
notation)  by 

e* (n)  =  e(n)  •  e^{n) 

«  [d{n)  -w'^X][d(n)  -  A] 

=  d*(n)  -  2d(n)X^W  +  W^Xx'^W 


The  mean  square  error,  obtained  by  taking  the 
expected  value  of  this  last  equation,  is  given  by  [Ref.  1 

E[eMn)]  =  E[dMn)]  -  2E[d(n)X^]W  +w’’e[J«'^]W 


Defining  the  vector  <>x<i  as  the  cross-correlation 
between  d(n)  and  X  then  yields 
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♦,d  3  E[d(n)X] 


=  E[d(n)x(n),d(n)x(n-l),...  ,d(n)x(n-N) 
The  input  auto-correlation  matrix  ♦xx  is  defined  as 

♦xx  =  ECJQC’^] 

which  may  be  written  in  expanded  notation  as 

x(n)  l[x(n)  x(n-l)  ...  x{n-N)] 
x(n-l ) 
x(n-2) 

x(n-N) 

Now  if  we  carry  out  the  indicated  vector 
multiplication  we  arrive  at  the  following  result  [Ref.  13] 

x(n)x{n)  x(n)x(n-l) 

x(n-l)x(n)  x{n-l)x(n-l)  ... 

•  • 

•  « 

x(n-l)x(n-l) 

And  thus  we  arrive  at  the  following  form  of  the 
input  correlation  matrix 
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r  «>xx(0)  ...  ^>xx(-N) 

1  i>xx(l)  <®xx(0)  •••  ii^xx(l~N) 


^>xx(N-l)^xx(-N) 
^>xx(N)  <9xx{N— 1) 


?>xx(-l) 

<Pxx(0) 


In  order  to  find  the  optimal  weight  vector, 

W* ,  we  can  differentiate  the  mean  square  error 
function  with  respect  to  the  weight  vector  W  to  yield 


d(eMn)  ) 
dW 


-2[«xd 


♦  xxW] 


The  optimal  weight  vector  ,  W* ,  generally 
called  the  Wiener  weight  vector,  is  obtained  by  setting  the 
quantity  in  brackets  equal  to  zero.  This  results  in 


W  =  ♦xx"^<'xd 


The  objective  of  processes  involving  the  ALC  is  to 
find  a  solution  to  this  equation.  In  fact  we  may  employ  an 
adaptive  algorithm  which  uses  the  error  signal,  €(n), 
(generated  for  each  Instance  of  filter  inputs),  as  the  basis 
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for  modifying  the  filter  weights  until  a  minimum  error  is 
attained  for  a  particular  input  block.  This  describes  the 
Adaptive  Transversal  Filter  shown  in  Figure  6.2  [Ref.  12]. 


Figure  6,2  The  Adaptive  Transversal  Filter 

The  Adaptive  Transversal  Filter  (ATF)  is  a  Finite 
Impulse  Response  (FIR)  filter  owing  to  the  lack  of  direct 
feedback  from  output  to  input.  If  we  employ  a  tapped  delay 
line  at  the  input  to  the  ALC  which  comprises  the  ATF  the 
form  of  the  input  vector  becomes  a  finite  number  of  delayed 
elements  of  the  input  signal.  It  is  therefore  easy  to  see 
that  the  impulse  response  of  the  ATF  is  just  the  sequence 
corresponding  to  the  elements  of  the  weight  vector,  W. 

Such  a  filter  can  have  any  impulse  response  of  length  less 
than  or  equal  to  its  own  length.  Allowing  for  an  ideal 
unlimited  length  we  could  realize  any  impulse  response  at 
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all,  and  thus  any  frequency  response.  Practically,  however, 
we  are  limited  by  filter  complexity,  error  due  to 
misadjustment ,  and  an  adaptive  time  constant  which 
corresponds  to  filter  length. 

Thus  we  have  a  means  of  generating  the  desired 
filter  response  by  applying  the  very  signal  we  wish  to 
detect.  If  we  apply  a  digital  series  of  samples  taken  from 
an  analog  reference  signal  we  can  realize  the  filter  weights 
which  will  provide  our  desired  signal  output  stream  at  a 
later  time. 

Thus  the  idea  is  to  sample  the  analog  recording  of 
the  APU  noise  in  the  cargo  bay  prior  to  launch  and  to  apply 
that  input  series  of  data  elements  to  an  ATF  to  realize  the 
filter  weights.  We  may  then  build  a  2920  circuit  which  uses 
these  weights  as  filter  coefficients  to  provide  our  filter 
response . 

2 .  A  Software  Simulation 

As  an  example  of  this  methodology  we  will  now 
present  an  elementary  simulation  which  was  performed  for  an 
input  which  consisted  of  an  equal  amplitude  application  of 
the  three  fundamental  frequencies  of  interest:  600  Hz,  1200 
Hz  and  1800  Hz.  We  chose  to  simulate  an  Adaptive 
Transversal  Filter  of  fourth  order  which  therefore  consists 
of  four  weights. 

One  example  of  a  software  implem'jntatlon  which  is 
designed  to  arrive  at  the  four  desired  filter  weights  is 
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shown  in  Appendix  J  as  FORTRAN  program  FIR4 .  In  this 
program  we  begin  with  trial  weights  and  a  range  of  upper  and 
lower  bounds.  By  repeated  application  of  a  library 
coefficient  optimization  routine  (BOXPLX — also  included  in 
the  appendix)  we  arrive  at  a  set  of  four  optimal  weights 
within  the  bounds  specified. 

The  result  of  this  simulation  is  revealed  through 
application  of  the  FORTRAN  program  FIR4SIM  which  is  Included 
as  Appendix  K  to  this  thesis.  This  result  is  shown  in 
Figure  6.3.  The  input  analog  signal  (indicated  by  the  solid 
line)  is  a  portion  of  the  combined  signal  corresponding  to 
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Figure  6.3  An  Adaptive  Transversal  Filter  Simulation 
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the  three  fiindamental  frequencies  mentioned  previously.  The 
desired  output  (shovm  by  the  dashed  line)  Is  chosen  to  be  a 
continuous  -1  unless  the  signal  of  interest  is  detected.  In 
that  case  the  desired  output  jumps  to  tl . 

As  indicated  in  Figure  6.2  the  Adaptive  Algorithm 
samples  the  input  signal  and  uses  the  successive  present  and 
three  previous  samples  to  arrive  at  the  desired  filter 
weights  which  will  accomplish  the  task  of  signal 
discrimination.  In  the  algorithm  implemented  by  FIR4  of 
Appendix  J  we  arrived  at  the  following  filter  weights. 

w»  =  -7.5060358 
w,  =  7.5403662 

w,  »  4.7097464 

W4  =»  -5.3987589 

In  Figure  6.3  we  see  that  over  100  sample  output 
iterations  these  weights  resulted  in  an  output  which  was  at 
or  near  zero  or  below  with  a  significant  rise  above  0.5  near 
the  desired  region.  This  approximates  the  filter  response 
which  would  allow  a  useful  discrimination  of  the  desired 
signal  by  detection  above  a  threshold  floor  (say  0.5  in 
this  example) . 

This  is  by  no  means  intended  to  be  an  exhaustive 
discussion  of  tnis  approach  to  a  matched  filter  design,  but 
merely  a  consideration  of  an  alternative  approach  which 
might  be  taken  to  realize  a  useful  filter. 


B.  AN  ANALOG  SPEECH  PROCESSING  SCHEME 

A  further  alternative  which  may  be  considered  Involves 
the  use  of  commercially  available  speech  processing 
microcircuits  which  often  use  Linear  Predictive  Coding 
schemes  as  the  basis  for  their  discriminant  filters. 

The  current  state  of  the  art  In  speech  recognition 
technology  does  not  permit  even  the  most  sophisticated  (and 
large)  devices  to  recognize  but  several  hundred  words  of 
vocabulary.  The  breakthroughs  are  most  often  In  the  arena 
of  overcoming  the  speaker  dependent  nature  of  the  simpler 
systems.  However,  all  systems,  be  they  single  chip 
processors  or  multl-cablnet  devices,  do  have  the  capability 
to  analyze  an  audio  Input  signal  (conventionally  this  is 
speech  of  course)  and  to  characterize  the  nature  of  changes 
in  the  formant  composition  over  time. 

Because  the  signal  we  wish  to  Identify  Is  in  the  audio 
spectrum  It  seems  a  logical  Idea  to  consider  that  a  speech 
recognition  device  may  prove  usable  for  our  purposes.  In 
fact,  Interstate  Electronics  Corporation  now  markets  a 
single  chip  voice  recognition  device  (VRC008)  which  Is 
capable  of  reliable  and  independent  recognition  of  up  to 
eight  words  or  phrases  which  are  stored  in  its  vocabulary. 
While  this  may  seem  a  minimal  vocabulary  It  is  a  remarkable 
ability  for  a  single  chip  device. 

The  Interstate  VRC008  is  capable  of  being  trained  to 
recognize  words  or  phrases  of  up  to  1.2  seconds  duration. 


To  Implement  an  audio  signal  recognition  scheme  would 
require  that  we  somehow  "sample"  our  input  audio  environment 
in  discrete  blocks  of  about  one  second  apiece.  Thus  we 
would  simulate  a  discrete  utterance  which  could  be  processed 
by  the  circuit.  In  the  absence  of  the  characteristic  APU 
signal  the  device  would  register  no  recognition  of  the  input 
sample.  But  after  APU  Ignition  it  is  reasonable  to  assiime 
that  the  device  would  treat  the  APU  signal  as  a  recognizable 
"word”  it  had  previously  been  taught. 

While  this  approach  may  seem  at  first  to  be  a  promising 
one  we  must  also  consider  the  drawbacks,  especially  in  view 
of  the  technically  simpler  approaches  we  have  reviewed  so 
far.  First  is  the  cost.  Although  the  Interstate  chip  is  by 
Itself  a  relatively  inexpensive  device  (on  the  order  of  ten 
dollars  in  quantity) ,  by  itself  it  is  also  useless  without  a 
twenty-five  thousand  dollar  training  and  development  tool. 
The  intent  of  the  manufacturer  is  that  the  cost  of  the 
development  tool  will  be  amortized  by  the  consumer  over  a 
sizable  run  of  usable  end  devices.  Our  application  does  not 
lend  itself  to  mass  production  and  the  cost  therefore 
becomes  prohibitive.  This  is  especially  true  in  view  of  the 
cost  of  the  simpler  technologies  discussed  in  previous 
chapters  which  have  given  us  useful  designs. 

Another  drawback  of  a  speech  recognition  approach  is  the 
level  of  technical  complexity  versus  guarantee  of  successful 
results.  Unless  we  use  a  device  of  modular  circuit  size  or 


smaller  we  risk  an  excess  of  power  and  space  consumption. 

But  the  state  of  the  art  In  speech  recognition  is  such  that 
accuracy  of  recognition  is  roughly  related  to  the  size  of 
the  device  (although  it  is  directly  the  vocabulary  size 
which  is  the  truly  overwhelming  factor  here) .  The 
Interstate  VRC008  claims  only  an  85  percent  accuracy  of 
recognition  which  is  low  by  the  standards  of  other  speech 
recognition  devices.  This  is  the  price  one  pays  for  small 
size. 

The  important  point  is  that  our  signal  of  interest  is 
characterized  by  extremely  well-defined  and  stationary 
spectral  components.  This  fact  allows  the  use  of  cheaper 
and  more  traditional  methods  of  signal  processing  and  filter 
design.  Were  our  signal  of  a  rapidly  time  varying  nature 
then  a  purely  analog  approach  would  be  impossible,  and  even 
a  digital  approach  would  prove  difficult  if  not  infeasible. 
It  is  then  that  methods  of  linear  predictive  coding  which 
form  the  basis  of  speech  recognition  would  become  one  of  a 
very  few  viable  alternatives. 
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VII.  COWCLPSIOW 


In  this  thesis  I  have  considered  several  approaches  to 
the  problem  of  designing  a  matched  filter  for  the  detection 
of  the  acoustic  signal  which  characterizes  the  Shuttle 
Auxiliary  Power  Unit.  The  Analog  and  Digital  HR  filter 
approaches  were  treated  in  some  detail,  while  the  Weiner  FIR 
and  Voice  Recognition  methods  were  given  less  attention.  My 
purpose  was  not  to  present  an  exhaustive  treatise  on  the 
subject  of  filter  design,  but  rather  to  describe  various 
ways  in  which  a  particular  problem  might  be  approached. 

It  is  not  coincidental  that  the  order  of  presentation  of 
the  considered  methods  should  conform  to  the  chronological 
.introduction  of  these  sciences  to  the  engineering  community. 
As  may  be  expected,  the  facility  with  which  each  of  these 
methods  is  employed  is  proportional  to  their  general 
familiarity  among  engineers.  The  analog  approach  considered 
first  is  the  best  established  method  of  filter  design.  Not 
surprisingly,  this  method  is  supported  by  a  wealth  of 
literature.  Despite  this  ample  documentation,  at  best  the 
analog  approach  to  filter  design  is  an  inexact  science  which 
is  largely  dependent  upon  the  degree  to  which  one  is  able  to 
characterize  the  signals  we  wish  to  manipulate.  Often, 
however,  we  have  excellent  knowledge  of  these  signals,  and 
thus  the  analog  approach  to  filter  design  remains  a 


completely  reasonable  and  certainly  cost  effective  approach 
to  simple  filter  designs. 

The  APU  signal  of  concern  to  this  study  was  such  a 
signal.  Its  signature  was  stationary  over  time  and  could  be 
reliably  found  at  amplitudes  well  above  the  noise  threshold. 
The  dominant  component  at  600  Hz  was  of  quality  sufficient 
to  preclude  examination  of  sub-dominant  spectral  harmonics 
at  higher  frequencies.  The  fact  that  a  well-defined  signal 
was  evident  allowed  for  a  design  which  emphasized  the 
simplicity  of  the  analog  approach. 

Mention  should  be  made  of  the  obstacles  which  did  impede 
the  final  analog  design.  Because  an  analog  filter  serves 
only  to  attenuate  those  signal  component  spectral  elements 
out  of  the  passband,  but  does  not  eliminate  them,  it  is 
necessary  to  know  the  range  of  amplitude  which  may  be 
expected  of  the  sensor  microphone  output.  For  a  given 
amplitude  of  signal  input  which  varies  little  within  the 
range  of  input  frequencies  it  may  be  reliably  expected  that 
the  analog  bandpass  filter  would  reject  the  frequency 
components  outside  of  the  narrow  passband.  But  if  the 
spectral  components  were  grossly  disparate  in  their 
amplitude  and  a  component  out  of  the  passband  were  received 
which  was  significantly  above  the  amplitude  expected  of  the 
600  Hz  center  frequency,  then  it  is  possible  that  the 
component  out  of  the  passband  would  be  passed  regardless  of 
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the  filter  attenuation.  This  demonstrates  the  need  we  have 
to  know  the  nature  of  the  Input  signal . 

One  approach  to  tMs  problem  Is  to  Increase  the 
attenuation  of  the  filter.  But  this  does  not  guarantee 
signal  component  rejection  out  of  the  passband.  The 
solution  for  an  analog  approach  lies  In  Automatic  Gain 
Control  (AGO)  at  the  sensor  microphone  Input  to  the  filter. 
In  this  manner  we  can  ensure  a  dynamic  range  of  input  signal 
which  Is  within  the  limits  of  filter  discrimination.  This 
Implies  a  careful  selection  of  a  microphone  and  preamplifier 
combination  which  In  turn  Implies  a  similarly  careful 
understanding  of  the  dynamic  range  of  the  input  signal. 
Indeed,  these  considerations  continue  to  be  the  most  vexing 
aspects  of  a  useful  final  design.  The  actual  dynamic  range 
of  the  signals  recorded  on  tape  was  unreliable  due  to  the 
number  of  Intermediate  and  Indeterminate  dubs  which  the  tape 
underwent  prior  to  our  acquisition  of  a  copy. 

Furthermore,  and  even  more  Importantly,  the  ultimate 
placement  of  the  sensor  microphone  In  the  Shuttle  cargo  bay 
will  have  considerable  effect  upon  the  nature  of  the  signal 
available  for  discrimination.  It  will  also  tell 
significantly  on  the  dynamic  range.  This  factor  will  Impact 
upon  any  chosen  filter  design  regardless  of  the  algorithm 
selected.  Thus  In  the  analog  case  we  must  design  for  a  wide 
dynamic  range  and  provide  AGO  which  yields  a  narrower  range 
of  amplitude  input  into  the  filter. 


Much  of  this  problem  Is  overcome  with  the  digital  filter 
implementation  developed  in  Chapters  4  and  5 .  At  the 
foundation  of  the  digital  design  is  a  frequency . domain 
scheme  whose  output  is  less  dependent  upon  input  amplitude 
variations  than  the  frequency  components  of  the  input 
signal.  In  fact  using  an  EPROM  based  filter  design  such  as 
afforded  by  the  INTEL  2920  we  enjoy  considerable  flexibility 
in  tailoring  the  range  of  allowable  Inputs  and  outputs 
through  careful  selection  of  prograun  parameters .  The 
limitations  are  rather  imposed  by  the  noise  level  at  the  low 
end  and  the  power  limit  at  the  high  end. 

There  are  several  drawbacks  to  the  digital  filter  which 
bear  mentioning.  The  foremost  drawback  is  cost  relative  to 
the  analog  filter.  The  design  presented  in  Chapter  5  was 
dependent  upon  the  .SDK-2920  Development  Kit  which  is  a 
thousand  dollar  item.  This  is  the  minimum  hardware  which  is 
necessary  to  develop  a  2920  signal  processing  design. 
However,  to  support  any  sort  of  a  sophisticated  development 
requires  the  INTEL  Intel lec  Development  System  with 
associated  software.  This  quickly  elevates  the  expense  of 
the  system  to  a  range  of  tens  of  thousands.  Of  course  there 
are  certainly  more  uses  for  the  Intellec  system  than  simply 
a  2920  development  application,  so  this  expense  can  be 
amortized  over  those  additional  uses.  But  the  2920 
applications  software  which  supports  the  Intellec  system  is 
a  four  thousand  dollar  expense  by  itself. 


This  fact  proved  significant  to  the  digital  design  when 
the  simulator  software  was  found  to  have  a  bug  in  it.  When 
the  original  disks  could  not  be  located  it  was  then  deemed 
more  practical  to  develop  an  application  specific  simulation 
on  a  mainframe  computer  instead  of  purchasing  a  replacement 
package  from  INTEL.  This  meant  an  additional  expenditure  of 
time  of  course,  and  was  only  successful  in  showing  the 
adequacy  of  the  specific  2920  filter  implementation 
algorithm.  However,  without  the  2920  Simulator  software 
package  effective  troubleshooting  was  made  significantly 
more  difficult.  Nontheless,  as  indicated  in  the  results  of 
Chapter  5,  a  successful  2920  implementation  was  accomplished 
without  a  fully  healthy  simulator.  With  it  the  design 
process  would  have  been  considerably  more  efficient. 

An  additional  consideration  is  the  complexity  of  the 
digital  design  over  the  analog  approach.  This  is  due  in 
large  part  to  the  availability  of  resources  which  support  an 
analog  design  relative  to  the  novel  approach  represented  by 
a  state-of-the-art  signal  processing  chip.  However,  the 
complexity  of  a  signal  processor  application  is  often  far 
outweighed  by  the  considerable  flexibility  which  it 
provides.  One  must  not  forget  the  power  of  the  2920 
(witness  its  ability  to  incorporate  all  of  the  hardware 
elements  of  the  follow-on  logic  circuitry  required  in  the 
analog  design  in  but  a  dozen  or  so  lines  of  2920  assembly 
language  code)  and  weigh  this  against  the  short  term 


Inconvenience  of  having  to  become  acquainted  with  a  new 
approach.  Once  mastered  the  significauit  ability  of  a  signal 
processing  device  medce  an  analog  approach  to  any  complex 
filter  design  seem  archaic.  In  addition  the  fewer  actual 
circuit  components  required  in  an  EPROM  based  device  means 
significant  savings  in  power  consumption.  This  is  an 
especially  noteworthy  item  when  considering  an  electronic 
device  for  a  space  application. 

For  the  purposes  of  this  thesis  I  must  admit  that  the 
2920  was  certainly  fun  to  work  with.  The  literature  is 
sketchy  in  spots  and  several  calls  to  technical  support  at 
INTEL  were  needed  to  resolve  some  issues  and  errors .  But 
overall  the  2920  certainly  provides  the  researcher  with  a 
significant  amount  of  flexible  and  powerful  signal 
processing  ability. 

The  slgnificamt  advantage  of  implementing  a  digital 
filter  over  the  analog  design  is  the  relative  immunity  to 
the  variations  in  input  amplitude.  This  was  a  crucial 
consideration  in  the  development  described  in  Chapter  5  and 
by  itself  would  account  for  the  choice  of  the  digital  design 
over  the  analog  approach.  When  coupled  with  the  further 
advantages  of  lower  power  consiimption,  less  physical  space 
required  and  considerable  flexibility  in  accommodating 
future  changes  without  the  need  for  hardware  modification, 
the  digital  approach  implemented  in  a  powerful  signal 
processor  becomes  an  irresistable  filter  design  option. 
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In  Chapter  6  we  considered  two  other  approaches  to  the 
APU  signal  detection  problem.  Unfortunately  a  lack  of  time 
prohibited  a  serious  examination  of  these  additional 
approaches.  Both  are  well-founded  and  represent  the  leading 
edge  of  signal  processing  technology.  Given  a  requirement 
for  detection  of  a  more  complex  signal  than  we  considered  in 
this  paper,  these  latter  methodological  options  could  well 
represent  the  only  viable  means  of  processing  a  time-varying 
signal  in  the  acoustic  spectr\am. 
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POWER  SPECTRAL  DENSITY  PLOTS  OF  THE  SHUTTLE 
CARGO  BAY  PRE-LAUNCH  ACOUSTIC  ENVIRONMENT 


Legend  for  the  Graphical  Output  on  the  Following  Pages 

Shuttle  Flight  Number:  STS- 2,  STS-3  or  STS-4 

Microphone  Identification:  9405,  9219  or  9403 

Sampled  Interval  Relative  to  APU  Power-Up:  PRE  or  POST 

All  PSD  Sources  are  from  the  Original  Aerospace  Tape 
Copies  (labelled  ORIG) 

Narrow  Band  Analysis  (N=40  Samples) 

Hanning  Weighting 

5.0  Volt  RMS  Front  End  Limiter 

Gain:  10  dB  per  division 

Cursor  Point  Label:  X  (Hz)  and  Y(B)  (Engineering  Units) 

Scale:  Linear  Ordinate  (0-2000  kHz) 

Logarithmic  Abcissa  (10^  to  10*  EU) 


paramcter  nnysiA  noist  Floor 
OVERALL  RMS  value  0-190S  S‘i 

ENGINEERINO  units  30,0000  G'i _ 

START  TIME:  (HR.  MIN,  sm  258/12:04:20 
sample  rate  (S/SECl  6134.9667 


TEST  DATE  _  15  September  81 _ 

ANALYSIS  B  W  2.2467  Hz _ 

ANALOG  L.P.  filter  8  w 2300.0000  Hz 

DEGREES  OF  FREEDOM  9-0000 _ 

PROCESS  DATE  18  September  81 _ 
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RUN  IDENTIFICATION  APU  HOTFIRE  CHANNEL  10  $T5-2 


PARAMETER  00281A _ 

OVERALL  RMS  VALUE  ?  7?S1  _ 

ENGINEERING  UNITS  3Q.QQQQ  G's _ 

START  TIME;  (HRi  MIN-  SECI  258/12:03:20 
SAMPLE  RATE  (S/SECl  6134,9687 


TEST  DATE _ 15  September  81 _ 

ANALYSIS  8  W  2.2467  Hz _ 

ANALOG  L.  P.  FILTER  8  W  2300.0000  H? 

DEGREES  OF  FREEDOM  9.0000 _ 

PROCESS  DATE  18  Stotember  81 
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RUM  IDENTIFICATION  APU  HOTFIRE  CHANNEL  10  ST5-2 


PARAMETER  _ 

OVERALL  RMS  VAi  ue  2.9631  G‘s 

ENOINEERINO  UNITS  30.0000  G's _ 

START  TIME:  (HR:  MIN:  sen  258/12:01:22 
SAMPLE  RATE  (S/SFCI  6134.9687 


TEST  DATE  15  September  81 _ 

ANALYSIS  B  W  2.2*67  Hz _ 

ANALOO  L.  R  FILTER  a  W  2300.0000  Hz 

DEGREES  OF  FREEDOM  9-0000 _ 

PROCESS  DATE  18  September  81 _ 


VERTICAL  scale  FACTOR:  TRUE  VALUE  •  VALUE  X  10  TO  THE  POWER  OF  -2 
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RUN  lOCNTIFICATION  APU 


HOTFIRE  CHANNEL  10  ST5-2 


PARAMETER  P°281A _ 

OVERALL  RMS  V*I  tir  6.4787  S's 
ENGINEERING  UNITS  30.0000  S‘s 
START  TIME:  (HR:  MIN:  SFf-l258/ll:S6:3S 
SAMPLE  RATE  IS/SgCI  6134.9687 


TEST  DATE 
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ANALOG  L.  P.  FILTER  g  W  2300.0000  Hz 
DEGREES  OF  FBeEDOU  9.0000 
PROCESS  DATE  K  September  81 _ 
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RUN  IDENTIFICATION  APU  HOTFIRE  CHMINEL  10  STS-Z 


PARAMETER _ 

OVERALL  RMS 

ENGINEERING  _ _ 

START  TIME:  (HR.'mIN.  SEO  258/11:56:14 
SAMPLE  RATE  (S/SECl  613».96a7 


VALUF  3.6288  G's 
UNITS  30.0000  G's 


2.2467  Hz 


TEST  DATE  _ 

ANALYSIS  a  W _ 

ANALOG  L.  R  FILTER 
DEGREES  OF 
PROCESS 


13  3epzMiBer  hi 


8  w  2300.0000  Hz 
FREEDOM  9.0000 
DATE  18  September  31 
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^^CTORi  TRUE  VALUE  •  VALUE  X  tO  TO  THE  POWER  OF  -2 
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RUM  IDENTIFICATION  APU  HOTFIRE  CHANNEL  10  STS-2 
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PARAMETER  D0281A _  TEST  DATE - 15  September  81 - 

OVERALL  RMS  VAiUE  VlTlfl  ANALYSIS  BW 2.2A$7  _ 

ENGINEERING  UNITS  in  OnnO  G‘s  ANALOG  L.  P.  FILTER  a  W  2300.0000  Hz 

START  TIME:  (HRi  MIN!  SEC) 25ami5ZiSfi_  DEGREES  OF  FREEDOM  _  j.Qflflfl - 

SAMPLE  RATE  (S/SECI  6134,9687  PROCESS  DATE _ IS  Septanfaerjl _ 


VERTICAL  SCALE  FACTOR:  TRUE  VALUE  •  VALUE  X  tO  TO  THE  POWER  OF_:L. 
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RUN  IDENTIFICATION  APU  HOTFIRE  CHAHNEl  11  STS-2. 


PARAMETER . 


Noise  Floor  tcct  batp  September  81 

OVERALL  n/a.  ufQ.1920  S‘s  ANALYSIS  B  W  _2J£§2J!2 - ^ - - 

ENOINEERINQ  UNITS  30.0000  Gs _  ANALOG  L.  R  FILTER  B  W 

START  TIME:  (HR,  MIN.  SECI?5^^:Q4^q_  DEGREES  OF  FREEDOM  .^* *2222— 
sample  rate  is/sff.'  6134.9687  PROCESS  DATE - 18  Septeeifaer  81_ 

VERTICAL  SCALE  FACTOR-.  TRUE  VALUE  •  VALUE  X  10  TO  THE  POWER  OF 
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200  300  500 

HERTZ 


2K  3K 


RUN  IDENTIFICATION 


APU  HOTFIRE  CHANNa  11  STS-Z 


PABAurTFR  D0280A  TEST  ftATP  IS  S»ntgiTihi.r  SI _ 

OVERALL  RMS  VAi  ue  2,7269  S's _  ANALYSIS  BW _ Hg _ _ 

ENfilNEERINQ  UNITS  30.0000  G‘s _  ANALOG  L.  P.  FILTER  B  WZ.IQfl.flQnfl  Hr, 

START  Tiuc.  lua.  UIM.  SFf.1  258/12:03:20  DEGREES  OF  FREEDOM  _3j3nnQ - 

SAMPLE  RATE  tysPC'  6134.9687  PROCESS  DATF  18  Sentembgr  SI 


vertical  SCALE  FACTOR:  TRUE  VALUE  •  VALUE  X  ID  TO  THE  POWER  OF  -3 


RUN  lOENTlPieATlflN  APU  HOTFIRE  CHAHNa  11  STS-2 


PARAMETER  _ 

OVERALL  RMS  VAi  UP  3.633S  G's 
ENGINEERINO  UNITS  30.0000  G'S 
START  TIME;  (HRi  MINt  <Pf-l25fl/U :58: U 
sample  rate  tysEC'  6134.9687 


TEST  PATE  IS  September  81 _ 

ANALYSIS  B  w  2.2467  Hz _ 

ANALOG  L.  P.  FILTER  a  'M  2300.0000  Hz 

DEGREES  OF  FREEDOM  9 .0000 _ 

PROCESS  PATE  18  September  81 _ 


100 


VERTICAL  SCALE  FACTOR 


RUN  IDENTinCATION  APU  HQTFIRE  CHANWEl  11  ST5-2 


PARAMETER  0Q280A _  TEST  DATE  15  September  81 _ 

OVERALL  RMS  VALUE  3.1781  Sis _  ANALYSIS  a  w  2.2467  Hz _ 

ENSINEERINO  UNITS  30.Q000  ANALOS  L.  P.  FILTER  a  w  2300.0000  Hz 

start  TIME:  (Hfli  min,  SEOZaam-iaillfiL.  DEGREES  OF  FREEDOM  ?.QPQ0 - 

SAMPLE  RATE  IS/SECI  finA.9687  PROCESS  DATE  18  Sentember  81 


NSI-SML  FORM  U7  (MAY.  79) 


•«ASA*i&C 


TS2 


AV6  N 


N  9AV  ZH/S.na 


El  EU*2/HZ  AVG  N 


log  B  NB  6  lOOB  WT 


Y(B)  1.11  E3  EU'2/HZ  AVG  N 


EU"2/HZ  AVG  N 


2/HZ  AVG  N 


595  HZ  Y(B)  1.11  E3  EU*2/HZ  AVG  N 


o  o  o  o  o 


FILE:  ABPDBP  FORTRAN  A1 


ALFA1=A1  ABP01660 

ALFA2=1./A1  ABP016  ■■■' 

BETA1=D/E  ABP016c 

BETA2=1 ./(D*E)  ABP01690 

GAMMA1=0**2.  ABP01700 

GAMMA2=1 . /D**2.  AB POT  710 

NUM1{ 1 )=ALFA1*(W0DIG**2. )  ABP01720 

NUM1(2)=0.  ABP01730 

NUM1(3)=1.  ABP01740 

DENI ( 1 )=GAMMA1*(W0DIG**2. )  ABP01750 

DEN1(2)=BETA1*W0DIG  ABP01760 

DEN1(3)=1.  ABP01770 

NUM2( 1 )=ALFA2*(W0DIG**2. )  ABP01780 

NUM2(2)=0.  ABP01790 

NUM2(3)=1.  ABP01800 

DEN2( 1 )=GAMMA2*(W00IG**2. )  ABP01810 

0EN2(2)=BETA2*W0DIG  ABP01820 

DEN2(3)=1.  ABP01830 

RH0=RH01*RH02  ABP01840 

INUM1=3  ABP01850 

INUM2=3  ABP01860 

I0EN1=3  ABP01870 

IDEN2=3  ABP01880 

CALL  PMPY(ANUM, lANUM.NUMI, INUM1.NUM2, INUM2)  ABP01890 

CALL  PMPY(ADEN. (ADEN, DENI, I0EN1,0EN2. IDEN2)  ABP01900 

WRITE(4, 1 10)RH0  ABP01910 

WRirE(4, 120)ANUM(5),ANUM(4),ANUM(3),ANUM(2),ANUM( 1 )  A8P01920 

DO  105  1=1,5  ABP01930 

ANUM( I )=ANUM( I )*RHO  ABP01940 

105  CONTINUE  ABP01950 

WRITE(4, 130)ANUM(5),ANUM(4),ANUM(3),ANUM(2),ANUM( 1 )  ABP01960 

DO  106  1=1,5  .  ABP01970 

ANUM(  I )  =  ANUM(  I )/RHO  ABP01980 

106  CONTINUE  ABP01990 

WRITE(4, 140)AOEN(5),AOEN(4),AOEN(3),AOEN(2),ADEN( 1 )  ABP02000 

110  F0RMAT{ ' r , 'SECTION  2  OUTPUT',//,  ABP02010 

&'  ANALOG  ELLIPTIC  BANDPASS  FILTER  TRANSFER  FUNCTION'  ABP02020 

&,//,'  NUMERATOR  COEFFICIENT  =  RHO  =  ',F9.6,/)  ABP02030 

120  FORMAT( '  NUMERATOR  POLYNOMIAL  (NORMALIZED)'  ABP02040 

S:,/,E12.5,'  S**4  +',/,E12.5,'  S**3  +'  ABP02050 

S:,/,E12.5,'  S**2  +',/,E12.5,  '  S  +' , /,  E12 . 5, // )  ABP02060 

130  FORMAT( '  NUMERATOR  POLYNOMIAL  ( UN-NORMAL  I  ZED ) '  ABP02070 

&,/,E12.5,'  S**4  +',/,E12.5,'  S**3  +’  ABP02080 

&,/,E12.5,'  S**2  +' ,/,E12.5, '  S  +' , /, E12. 5, // )  ABPC2090 

140  FORMAT ( '  DENOMINATOR  POLYNOMIAL  (NORMALIZED)'  ABP02100 

8c,/,E12.5,'  S**4  +',/,E12.5,  ABPOZliO 

&'  S**3  +',/,E12.5,'  S**2  +',/,E12.5,'  S  +' , /, El  2 . 5, /// )  ABP02120 

C*-**-»*'»*******************'»**'»*************'H-*******<t****'H-***************ABP02 1  30 

*ABP02140 

SECTION  2A  »ABP02150 

»ABP02160 

CALCULATE  THE  COMPLEX  POLES  AND  ZEROS  OF  THE  ANALOG  FILTER  *ABP02170 

♦ABP02180 

I PDEG  =  4  ABP02200 


FILE;  ABPD8P  FORTRAN  A1 


C  CHOOSE  R17=R27=1  ./(WO*C1  )(APPROX)=26. 5  KOHMS  *ABPOniO 
C  USE  MEASURED  VALUES  FOR  CALCULATIONS  *ABP0n20 
C  *ABP0n30 

Cl  1  =  .00996E-06  ABPOIISO 
C12=.00995E-06  ABP01160 
C21=.01030E-06  A8P01170 
C22=.01034E-06  ABP01180 
R17=26.7E+03  ABP0n90 
R27=26.7E+03  ABP01200 

PO  1  2  1  0 

C  ELLIPTIC  BANDPASS  FILTER  STAGE  RESISTOR  VALUES  ABP01220 
O*************#*************#-******#*'************************  ********#**y\g  P0 1 2  3  0 


R1 1=( E/( K*0*W0*Cn ))*SQRT(A/C) 

R12=K*R1 1*SQRT(C/A) 

R13=1  ./{D*wo*cn ) 

R14=(R17/K)*SQRT(A/C) 

R15=(D/(K*A1*W0*C12) )*SQRT(A/C) 

R16=C11*R13/C12 

WRITE(4,20)C11.C12,R17.R11,R12,R13,R14,R15.R16 
R2 1 = ( ( D*E ) / ( K*W0*C2 1 ) ) *SQRT ( A/C ) 

R22=( K*R21 )*SQRT(C/A) 

R23=0/(W0*C21 ) 

R24=(R27/K)*SQRT(A/C) 

R25=( A1/( K*D*W0*C22) )*SQRT(A/C) 

R26=C21*R23/C22 

WR I TE( 4, 30 )C21 . C22, R27, R21 , R22, R23, R24, R25, R26 
10  FORMAT( '  SECTION  1  OUTPUT',//, 

&'  INPUT  AND  DERIVED  PARAMETERS  FOR  FURTHER  CALCULATIONS' 

&,//,'  A  =  ',F9.6,/,'  B  =  ',F9.6,/,'  C  =  ',F9.6,/,'  D  =  ', 
&F9.6,/,'  E  =  ',F9.6,/,'  A1  =  ',F9.6,/,'  FO  =  ',F9.3,/,'  WO  =  ' 
&!,F9.3,/,'  q=  ',F9.6,/,'  K=  ',F9.6,/,'  K1  =  ’,F9.6,/, 

&'  K2  ',F9.6,/,'  WO(OIC)  =  ',F9.3,/,'  FO(DIG)  =  ',F9.3,///) 

20  FORMAT ( '  ELLIPTIC  ANALOG  8PF  COMPONENT  VALUES',//,'  FIRST  STAGE’ 
&.//,'  C11  =  ',E8.3,/,'  C12  =  ',E8.3,/,'  R17  =  ',E8.3, 

&/,'  R11  =  ',E8.3,/,'  R12  =  ',E8.3,/,’  R13  =  ’,E8.3,/, 

&'  R14  =  ',E8.3,/,'  R15  =  ',E8.3,/,’  R16  =  ’,E8.3.//) 

30  FORMAT ('  SECOND  STAGE',//, 

&'  C21  =  ',E8.3,/,'  C22  =  ',E8.3,/,'  R27  =  ',E8.3, 

&/,'  R21  =  ',E8.3,/,'  R22  =  ',E8.3,/,'  R23  =  ',E8.3,/, 

4'  R24  =  ',E8.3,/,’  R25  =  ’,E8.3,/,’  R26  =  ’,E8.3) 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


SECTION  2 

IN  THIS  PORTION  OF  THE  PROGRAM  WE  COMPUTE  THE  ANALOG  TRANSFER 
FUNCTION  OF  THE  ELLIPTIC  PAND  PASS  FILTER.  IF  THE  ANALOG 
FUNCTION  ALONE  IS  DESIRED  THEN  WE  USE  WO  FOR  CALCULATIONS. 

IF  THE  ANALOG  TRANSFER  FUNCTION  IS  DESIRED  FOR  DIGITAL 
TRANSFORMATION  THEN  WE  MUST  USE  THE  PRE-WARPED  ANALOG  TO  WO 
WHICH  IS  WOOIG. 


*ABP01530 

*ABP01540 

*ABP01550 

*ABP01560 

*ABP01570 

*ABP01580 

•ABP01590 

*ABP01600 

ABP01610 

*ABP01620 


Q***#*******'»#-)Ht**#********-IHH***#***-IHf#****************#****************^gpQ1  gjQ 

RH01=K1*SQRT(C/A)  ABP01640 

RH02=K2*SQRT(C/A)  ABP01650 


FILE:  ABPDBP  FORTRAN  A1 


COMPLEX  AZERO(4),APOLE(4)  ABP00560 

C  SECTION  3  ABP00570 

INTEGER  IZM, IZP. IDNUM, IDDEN, IDTHP  A8P00580 

REAL  TNCOEF.TDCOEF  ABP00590 

REAL  ZM1(5).ZM2(5).ZM3(5),ZM4(5).ZP1(5).ZP2(5),ZP3(5).ZP4(5)  ABP00600 

REAL  DNUM(5).DDEN(5),DTMP(9)  ABP00610 

C  SECTION  3A  ABP00620 

REAL  DNMINV(5).DDNINV(5)  ABP00630 

REAL  RZ(4).RP(4)  ABP00640 

COMPLEX  DZERO(4).DPOLE(4)  ABP00650 

C  SECTION  4  ABP00660 

INTEGER  14,12  ABP00670 

COMPLEX*! 6  DZ4(  4  ) ,  DP4(  4 ) ,  OZ21  (  2 ) ,  DP'21  ( 2 ) ,  DZ22(  2  ) ,  DP22(  2 )  ABP00680 

COMPLEX*! 6  0N4( 4 ) , 004( 4 ) , DN2! ( 2 ) . 002! (2 ) . 0N22( 2 ) . 0022(2 )  ABP00690 

COMPLEX  DN45 ( 5 ) , 0045(5 ) , 0N2! 3 ( 3 ) . 002! 3( 3 ) , DN223 ( 3 ) , DD223 ( 3 )  ABP00700 

Q-H’****#**'l*'»***************-)f**********'***********-»****-lt************-lf*****/^0pQQ7  •)  0 


TABULATED  INPUT  PARAMETERS  FOR  DESIRED  SECOND  ORDER  LOWPASS 
FILTER  EQUIVALENT  HAVING  THE  FOLLOWING  CHARACTERISTICS: 

N  =  2 

MAXIMUM  PASSBAND  RIPPLE  WIDTH  ( PRW)  =  2.0  DB 
MINIMUM  LOSS  IN  THE  STOPBAND  (MSL)  =  30.0  DB 
NORMALIZED  TRANSITION  WIDTH  =  2.292! 

FILTER  GAIN  ( K)  =  ! .0 


ABP00720 

ABP00730 

ABP00740 

ABP00750 

ABP00760 

ABP00770 

ABP00780 


Q##*-»#**###-»****#****#*#*»***»********-)f#**#*#'lf#**####'tf*####*#*#*##***»*#y^0pQQ79Q 

F0=600.  ABP00800 

A=2!.!64003  ABP008!0 

B=0.787!52  ABP00820 

C=0. 842554  ABP00830 

q=12.  ABP00840 

Pl=3.!415927  ABP00850 

K=!.  ABP00860 

C  DERIVED  PARAMETERS  ABP00880 

C**##**###*#**###'i»##*##****#*********#********#*'»**'tnn»*******'*'tnnnn*-»****^gpQ(jg90 

E=( ! ./B)*SQRT( (C+4.*Q**2.+SQRT( (C+4.*Q**2. ) **2 . -( 2 . *B*Q ) **2 . ) )/2. )ABP00900 
D=.5*( (B*E/Q)+SQRT( (B*E/Q)**2. -4. ))  ABP009!0 

A!*! .+•( ! ./(2.*Q**2. ) )*( A+SQRT( A**2. +4. *A*Q**2 . ) )  ABP00920 

K!=SQRT(K)  ABP00930 

K2=K!  ABP00940 

T=4.*!92./6.666E+06  ABP00950 

TDIV2=T/2.  ABP00960 

W0=2.*PI*F0  ABP00970 

W00IG=( ! ./TDIV2)*ATAN(W0*T0IV2)  ABP00980 

F00IG=W00IG/(2.*PI  )  ABP00990 

WRITE(4, !0)A,B,C,0, E, A! , F0,W0,Q, K, K! ,  K2,W0DIG,  FODIG  ABP0!000 

C***'it**-innf****'in»***'»***********»******-H.******-»*************************-»y^g  po  1  0 !  0 

C  *ABP0!020 

C  SECTION  !  *ABP0!030 

C  *ABP0!040 

C  THIS  PROGRAM  SECTION  COMPUTES  ANALOG  ELLIPTIC  BANDPASS  FILTER  *ABP01050 

C  RESISTOR  AND  CAPACITOR  VALUES  USING  THE  ABSOLUTE  AND  DERIVED  *ABP0!060 

C  PARAMETERS  CALCULATED  ABOVE:  *ABP01070 

C  *ABP01080 

C  CHOOSE  C!!=C2!=.0!E-06  (APPR0X)=.0!  UF  *ABP01090 

C  CHOOSE  C!2=C22=.0!E-06(APPROX)=.0!  UF  *ABP01100 


nooooooooooooooooooooooooooooooooooooo 


FILE:  ABPDBP  FORTRAN  A1 


Q*****#**'))'**** 'tf*#***#**#* #***#**##«*« PQOO  1  0 

*ABP00020 

APPENDIX  C  *ABP00030 

*ABP00040 

FORTRAN  PROGRAM  ABPDBP  AND  PROGRAM  OUTPUT  *ABP00050 

*ABP00060 
•ABP00070 

THIS  PROGRAM  CALCULATES:  *ABP00080 

*ABP00090 

1)  ANALOG  ELLIPTIC  BANDPASS  FILTER  RESISTOR  AND  CAPACITOR  *ABP00100 

VALUES  (STARTING  FROM  TABULATED  PARAMETERS  CORRESPONDING  *ABP00n0 

TO  THE  DESIRED  FILTER  RESPONSE)  *ABP00120 

*ABP00130 

2)  ANALOG  ELLIPTIC  BANDPASS  TRANSFER  FUNCTION  (IF  DESIRED  FOR  *ABP00140 

DIGITAL  TRANSFORMATION  THEN  MUST  MODIFY  CODE  IN  THIS  PROGRAM  *ABP00150 
SECTION  AND  SUBSTITUTE  WODIG  FOR  WO  TO  REALIZE  NECESSARY  *ABP00160 

PRE-WARPING  COMPENSATION)  *ABP00170 

-  *ABP00180 

A)  ANALOG  TRANSFER  FUNCTION  COMPLEX  ZEROS  AND  POLES  *ABP00190 

*ABP00200 

3)  DIGITAL  TRANSFER  FUNCTION  (BY  APPLICATION  OF  THE  BILINEAR  *ABP00210 

TRANSFORM  TO  THE  PRE-WARPED  CASE  OF  THE  ANALOG  TRANSFER  *ABP00220 

FUNCTION.  WHICH  IS  PROVIDED  IN  SECTION  2  BY  USING  THE  *ABP00230 

PRE-WARPED  FREQUENCY  ANALOG  —  WODIG  (VICE  WO)  --  IN  THE  *ABP00240 

ANALOG  TRANSFER  FUNCTION  COMPUTATION).  THE  BILINEAR  *ABP00250 

TRANSFORM  IS  ACCOMPLISHED  BY  THE  FOLLOWING  SUBSTITUTION:  *ABP00260 

*ABP00270 

Z  -  1  *ABP00280 

S  =  (2/T)  -  *ABP00290 

Z  +  1  *ABP00300 

*ABP00310 

WHERE  T  IS  THE  SAMPLING  FREQUENCY  OF  THE  DIGITAL  SYSTEM.  *ABP00320 

*ABP00330 

A)  DIGITAL  TRANSFER  FUNCTION  COMPLEX  ZEROS  AND  POLES  *ABP00340 

*ABP00350 

4)  POLYNOMIAL  COEFFICIENTS  FOR  FIRST  AND  SECOND  ORDER  CASCADED  *ABP00360 

TERMS  WHICH  WILL  BE  USED  TO  PERFORM  A  2920  ANALOG/DIGITAL  *ABP00370 

SIGNAL  PROCESSING  SIMULATION  *A8P00380 

*ABP00390 

C********#*****-»***********##*************'IHH>******#****'IH******#********^gpQQ4QQ 

C  TYPE  DECLARATIONS  ABP00410 

C*********-»***-innf******-)nn»****»*'»***-int*'inn»**-im"H-***#**#**************-»***/\5PQ0420 


THIS  PROGRAM  CALCULATES: 

1)  ANALOG  ELLIPTIC  BANDPASS  FILTER  RESISTOR  AND  CAPACITOR 
VALUES  (STARTING  FROM  TABULATED  PARAMETERS  CORRESPONDING 
TO  THE  DESIRED  FILTER  RESPONSE) 

2)  ANALOG  ELLIPTIC  BANDPASS  TRANSFER  FUNCTION  (IF  DESIRED  FOR 
DIGITAL  TRANSFORMATION  THEN  MUST  MODIFY  CODE  IN  THIS  PROGRAM 
SECTION  AND  SUBSTITUTE  WODIG  FOR  WO  TO  REALIZE  NECESSARY 
PRE-WARPING  COMPENSATION) 

A)  ANALOG  TRANSFER  FUNCTION  COMPLEX  ZEROS  AND  POLES 

3)  DIGITAL  TRANSFER  FUNCTION  (BY  APPLICATION  OF  THE  BILINEAR 
TRANSFORM  TO  THE  PRE-WARPED  CASE  OF  THE  ANALOG  TRANSFER 
FUNCTION.  WHICH  IS  PROVIDED  IN  SECTION  2  BY  USING  THE 
PRE-WARPED  FREQUENCY  ANALOG  —  WODIG  (VICE  WO)  --  IN  THE 
ANALOG  TRANSFER  FUNCTION  COMPUTATION).  THE  BILINEAR 
TRANSFORM  IS  ACCOMPLISHED  BY  THE  FOLLOWING  SUBSTITUTION: 


S  =  (2/T) 


WHERE  T  IS  THE  SAMPLING  FREQUENCY  OF  THE  DIGITAL  SYSTEM. 

A)  DIGITAL  TRANSFER  FUNCTION  COMPLEX  ZEROS  AND  POLES 

POLYNOMIAL  COEFFICIENTS  FOR  FIRST  AND  SECOND  ORDER  CASCADED 
TERMS  WHICH  WILL  BE  USED  TO  PERFORM  A  2920  ANALOG/DIGITAL 
SIGNAL  PROCESSING  SIMULATION 


SECTION  1 

REAL  A.B.C.O.E.AI ,q.K.K1.K2,WO.PI,FO,WOOIG.FODIG.T,TDIV2 
REAL  C11,C12.C21.C22 
REAL  R11.R12.R13.R14.R15,R16,R17 
REAL  R21.R22.R23,R24.R25.R26,R27 
SECTION  2 

INTEGER  INUM1. INUM2. I0EN1, I0EN2, lANOM, lADEN 

REAL  RHO, RH01 , RH02 . ALFA1 , ALFA2. 8ETA1 , BETA2, GAMMA1 . GAMMA2 

REAL  NUM1 ( 3  ) . NUM2( 3 ) . DENI ( 3 ) , DEN2( 3 ) 

REAL  ANUM(5).ADEN( 5) 

SECTION  2A 

INTEGER  lERR.lPDEG 
REAL  ANMINV(5).ADNINV(5) 


ABP00430 

ABP00440 

ABP00450 

ABP00460 

ABP00470 

ABP00480 

ABP00490 

ABP00500 

ABP00510 

ABP00520 

ABP00530 

ABP00540 

ABP00550 


2/HZ  AVG  N 


E2  EU“2/HZ  AV6  N 


N  9AV  ZH/E.na 


EU*2/HZ  AVG  N 


95  El  EU“9/HZ  AV6  N 


595  HZ  Y(B)  2.52  E3  EU*2/HZ  AVG  N 


o  o  o  o  o  o  o 


FILE;  A8PDBP  FORTRAN  A1 


DO 


1400  1=1,5 
ANMINV(  I  )=ANUM(6-I ) 

ADNINV(  I  )=ADEN(6-I ) 

1400  CONTINUE 

CALL  ZRPOLY(ANMINV.  I POEG.AZERO, I  ERR) 

CALL  ZRPOLY(ADNINV, 1 PDEG.APOLE, I  ERR) 

WRITE(4, 1410) 

WRITE(4. 1420)AZER0( 1 ) . AZERO( 2 ) , AZERO( 3 ) . AZERO( 4 ) 

WRITE(4, 1430)APOLE( 1 ) , APOLE( 2 ) , APOLE( 3 ) , APOLE( 4 ) 

1410  FORMAT!///,'  SECTION  2A  OUTPUT',//, 

&'  ANALOG  FILTER  COMPLEX  POLES  AND  ZEROS',/) 

1420  FORMAT!'  ANALOG  FILTER  ZEROS' , /, 4! IX, E12 . 5, 2 
1430  FORMAT!'  ANALOG  FILTER  POLES' , /, 4! IX, E12 . 5, 2 
C********-**********  *•»*******•»  •»**'inn*-********##*'»*****************'in»***#**/^gP02  340 


4) 

ABP02210 

A8P02220 

ABP02230 

ABP02240 

ABP02250 

ABP02260 

ABP02270 

ABP02280 

4) 

ABP02290 

E12.5,/)./) 

ABP02300 

ABP02310 

A8P02320 

E12. 5, /),///) 

ABP02330 

SECTION  3 


♦ABP02350 


•A8P02360 
♦ABP02370 
*ABP02380 
*ABP02390 
*ABP02400 
*ABP02410 


THE  FOLLOWING 
OF  THE  ANALOG 
SECTION  2 


STATEMENTS  PERFORM  THE  BILINEAR  TRANSFORMATION 
BANDPASS  TRANSFER  FUNCTION  COMPUTED  ABOVE  IN 


IZM=5 

IZP=5 

1  ONUM: 

=5 

IDDEN^ 

=5 

ZM1!  1 

)  =  -1 

ZM1  !2 

)  =  1. 

ZM1!3 

)=0. 

ZM1!4 

)=0. 

ZM1!5 

)=o. 

ZM2!  1 

)  =  1. 

ZM2!2 

)  =  -2 

ZM2!3 

)=1. 

ZM2!4 

)=o. 

ZM2!5 

)=0. 

ZM3!  1 

)  =  -1 

ZM3!2 

)=3. 

ZM3!3 

)  =  -3 

ZM3!4 

)=1. 

ZM3!5 

)=0. 

ZM4!  1 

)  =  1. 

ZM4!2 

)  =  -4 

ZM4!  3 

)=6. 

ZM4!4 

)  =  -4 

ZM4!5 

)  =  1. 

ZP1 !  1 

)  =  1. 

ZP1  !2 

)  =  1. 

ZP1 !  3 

)=0. 

ZP1!4 

)=0. 

ZP1!5 

)=0. 

ZP2!  1 

)  =  1. 

ZP2!2 

)=2. 

ZP2!  3 

)  =  1. 

ZP2!4 

)=0. 

ABP02430 

ABP02440 

ABP02450 

ABP02460 

ABP02470 

ABP02480 

ABP02490 

ABP02500 

ABP02510 

ABP02520 

ABP02530 

ABP02540 

ABP02550 

ABP02560 

ABP02570 

ABP02580 

ABP02590 

ABP02600 

ABP02610 

ABP02620 

ABP02630 

ABP02640 

ABP02650 

ABP02660 

ABP02670 

ABP02680 

ABP02690 

ABP02700 

ABP02710 

ABP02720 

ABP02730 

ABP02740 

ABP02750 


FILE;  ABPDBP  FORTRAN  A1 


ZP2(5)=0. 

ZP3(1)=1. 

ZP3(2)=3. 

ZP3(3)=3. 

ZP3(4)=1. 

ZP3(5)=0. 

ZP4(1)=1. 

ZP4(2)=4. 

ZP4(3)=6. 

ZP4(4)=4. 

ZP4(5)=1. 

TNCOEF=ANUM( 1 )*(TDIV2**4. ) 

TDCOEF=ADEN( 1 )*(TDIV2**4. ) 

DO  200  1=1,5 

DNUM( I )=2P4(  I )*TNC0EF 
DDEN( I )=2P4( I )*TDCOEF 
200  CONTINUE 

TNC0EF=ANUM(2)*(T0IV2**3.  ) 

TDC0EF=A0EN(2)*(TD1V2**3. ) 

DO  210  1=1,5 

CALL  PMPY(0TMP. IDTMP,ZM1,  IZM,ZP3,  IZP) 

DNUM(  I )=0NUM(  I  )  +  (0TMP( I )*TNCOEF) 

DDEN( I )=00EN( I )+(0TMP( I )*TDCOEF) 

210  CONTINUE 

TNCOEF=ANUM(3)*(TDIV2**2.  ) 

TDCOEF=ADEN(3)*(TDIV2**2. ) 

00  220  1=1,5 

CALL  PMPY(DTMP. IDTMP,ZM2, IZM,2P2,  IZP) 

ONUM( I )=ONUM( I )+(DTMP( I )*TNCOEF) 

DOEN( I )=ODEN( I )+(OTMP( I )*TOCOEF) 

220  CONTINUE 

TNCOEF=ANUM( 4 )*( TO  I V2 ) 

TDC0EF=ADEN(4)*(T0IV2) 

00  230  1=1,5 

CALL  PMPY(OTMP, I0TMP,ZM3, IZM,ZP1, IZP) 

DNUM( I )=0NUM( I )+(DTMP( I )*TNCOEF) 

ODEN( I )=ODEN( I )+(DTMP( I )*TOCOEF) 

230  CONTINUE 

TNC0EF=ANUM(5) 

TDC0EF=ADEN(5) 

DO  240  1=1,5 

DNUM( I )=ONUM( I )+(ZM4( I )*TNCOEF) 

OOEN( I )  =  DOEN(  I  )  +  (ZM4(  I )*TDCOEF) 

240  CONTINUE 

DO  250  1=1,5 

DNUM( I )=ONUM( I )/DDEN(5) 

OOEN( I )=DOEN( I )/0DEN(5) 

250  CONTINUE 

RH0=RH0*DNUM(5) 

DO  260  1=1,5 

DNUM( I )=DNUM( I )/DNUM(5) 

260  CONTINUE 

WRITE(4,310)RHO 

WR I TE( 4, 320 )0NUM( 5 ) , 0NUM( 4 ) , DNUM( 3 ) , DNUM( 2 ) , DNUM( 1 ) 
DO  305  1=1,5 


ASP02760 

ABP02770 

ABP02780 

ABP02790 

ABP02800 

A6P02810 

ABP02820 

ABP02830 

ABP02840 

ABP02850 

A8P02860 

ABP02870 

A8P02880 

A8P02890 

A8P02900 

A8P02910 

A8P02920 

A8P02930 

A8P02940 

A8P02950 

A8P02960 

A8P02970 

A8P02980 

A8P02990 

A8P03000 

A8P03010 

A8P03020 

ABP03030 

ABP03040 

ABP03050 

ABP03060 

ABP03070 

ABP03080 

ABP03090 

ABP03100 

ABP03110 

ABP03120 

ABP03130 

ABP03140 

ABP03150 

ABP03160 

ABP03170 

ABP03180 

ABP03190 

ABP03200 

ABP03210 

ABP03220 

ABP03230 

ABP03240 

ABP03250 

ABP03260 

ABP03270 

ABP03280 

ABP03290 

ABP03300 
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DNUM( I )=ONUM( 1 )*RHO 
305  CONTINUE 

WR I TE(  4,  330 )ONUM{  5 ) ,  DNUM( 4 ) , DNUM( 3 ) , DNUM( 2 ) , DNUM( 1  ) 

WR I TE(  4,  340 )DOEN( 5 ) . DOEN( 4 ) . DOEN( 3 ) . DDEN( 2 ) , DDEN( 1 ) 

310  FORMAT( ' 1 'SECTION  3  OUTPUT',//, 

&'  EQUIVALENT  DIGITAL  FILTER  TRANSFER  FUNCTION',//, 

&'  NUMERATOR  COEFFICIENT  =  ',E12.5,/) 

320  FORMATC  numerator  (NORMALIZED)' 

8:,/,1X,E12.5.  '  +  ' , /,  IX,  El  2 . 5, '  Z**-1  +' , /,  1 X,  E12 . 5,  '  Z**-2  +', 
8e/,1X,E12.5,  '  Z**-3  + ' , /,  IX,  E12. 5,  ’  Z**-4’,//) 

330  FORMATC  NUMERATOR  ( UN -NORMAL  I  ZED) ' 

&,/,1X,E12.5, '  +  ',/,1X,E12.5,'  Z**-1  +' , /, IX, E12. 5, '  Z**-2  +', 
*/, 1X,E12.5, '  Z**-3  +',/,1X,E12.5, '  Z**-4',//) 

340  FORMATC  DENOMINATOR' 

S:./,1X,E12.5,  '  +  ',/,1X,E12.5,!  Z**-1  +' ,/,  IX,  E12.5,  '  Z**-2  +', 
St/,1X,E12.5, '  Z**-3  +',/,1X,E12.5. '  Z**-4',////) 


ABP03310 

ABP03320 

ABP03330 

ABP03340 

ABP03350 

ABP03360 

ABP03370 

ABP03380 

ABP03390 

ABP03400 

ABP03410 

ABP03420 

ABP03430 

ABP03440 

ABP03450 

ABP03460 


C 

c 

c 

c 

c 

c 

c 


CALCULATE  THE  COMPLEX 
AND  THE  RADIUS  OF  THE 
TO  THE  UNIT  CIRCLE. 


SECTION  3A 

POLES  AND  ZEROS  OF  THE  DIGITAL  FILTER 
COMPLEX  POLE  AND  ZERO  VECTORS  RELATIVE 


I PDEG  =  4 
DO  400  1=1,5 

ONMINV( I )=DNUM(6-I ) 

DONINV( I )=00EN(6-I ) 

400  CONTINUE 

CALL  ZRPOLY(ONMINV, IPOEG,DZERO,  I  ERR) 

CALL  ZRPOLY( DON  I NV, I PDEG, OPOLE, I  ERR ) 

DO  404  1=1,4 

RZ(  I  )  =  SQRT(  (REAL(DZERO(  I  )  )  )**2 . +( Al  MAG(  DZERO(  I  )  )  )'**2.  ) 
RP(  I )=SQRT( (REAL(OPOLE( I ) ) )**2 . +( Al MAG( DPOLE(  I  )  ) )**2. ) 
404  CONTINUE 

WRITE(4,410) 

WR I TE(  4, 420 ) OZERO(  1 ) , RZ(  1 ) , OZERO( 2 ) , RZ( 2 ) , D2ER0( 3 ) , RZ( 3 ) , 
&DZER0(4),RZ(4) 

WRITE(4,430)0P0LE(1 ) , RP( 1 ) , 0P0LE( 2 ) , RP( 2 ) , DPOLE( 3 ) , RP( 3 ) , 
8cOPOLE(4),RP(4) 

410  FORMATC  SECTION  3A  OUTPUT',//, 

&'  DIGITAL  FILTER  COMPLEX  POLES  AND  ZEROS  AND  RADIUS',//) 
420  FORMATC  ZERO  LOCATIONS  (REAL, IMAG)  AND  RADIUS',/, 
g:4(E12.5,2X,E12.5,2X,E12.5,/),/) 

430  FORMAT ( '  POLE  LOCATIONS  (REAL, IMAG)  AND  RADIUS',/, 
&4(E12.5,2X,E12.5,2X,E12.5,/),///) 


*ABP03480 

*ABP03490 

*ABP03500 

*ABP03510 

*ABP03520 

*ABP03530 

*A8P03540 


Q**#***************#*********'(f*-(Ht*-(************-IHf******-»**#**************/^gpQ355Q 


ABP03560 

ABP03570 

ABP03580 

ABP03590 

ABP03600 

ABP03610 

ABP03620 

ABP03630 

ABP03640 

ABP03650 

ABP03660 

ABP03670 

ABP03680 

ABP03690 

ABP03700 

ABP03710 

ABP03720 

ABP03730 

ABP03740 

ABP03750 

ABP03760 

ABP03770 


C****#******-**-»*1t************************#*****-»*'lnf***'*****#******#*****^gpQ3ygg 


C  *ABP03790 
C  SECTION  4  *A8P03800 
C  *ABP03810 
C  COMPUTE  THE  POLYNOMIAL  COEFFICIENTS  OF  QUADRATIC  FACTORS  FOR  *ABP03820 
C  THE  POLES  AND  ZEROS  PREVIOUSLY  DETERMINED.  *ABP03830 
C  *ABP03840 


J* 


FILE:  ABPOBP  FORTRAN  A1 


14=4 

12=2 

DO  500  1=1,4 

DZ4( I )=CMPLX(REAL(OZERO( 1 ) ) . A I MAG( DZERO( I ) ) ) 

0P4( I )=CMPLX(REAL(DPOLE( I ) ) , A IMAG( DPOLE( I ) ) ) 

500  CONTINUE 

DO  502  1=1,2 

DZ21(  I  )=0Z4(  I ) 

0P21( I )=DP4( I ) 

502  CONTINUE 

DO  504  1=3,4, 1 

0Z22( I -2)=DZ4( I ) 

DP22( I -2)=0P4( I ) 

504  CONTINUE 

CALL  MAKPOL(I4,DZ4,ON4) 

CALL  MAKPOL( I4.DP4,004) 

DN45(5)=CMPLX( 1 . ,0. ) 

D045(5)=CMPLX(  1 .  ,0. ) 

DO  512  1=1,4 

DN45( I )=DN4( I ) 

0D45( I )=0D4( I ) 

512  CONTINUE 

WRITE(4,514) 

514  FORMAT( ' 1 ', 'SECTION  4  OUTPUT',//, 

&'  REASSEMBLE  COEFFICIENTS  FROM  POLES  AND  ZEROS',//) 

WRITE(4,515) 

WRITE(4,520)DN45(5),DN45(4),0N45(3),DN45(2),DN45(  1 ) 

WR I TE( 4, 530 ) 0045 ( 5 ) , 0045 ( 4 ) , D045( 3 ) , 0045 ( 2 ) , 0045 ( 1 ) 

515  FORMAT(/'  SINGLE  FOURTH  ORDER  TRANSFER  FUNCTION  COEFFICIENTS',//) 
520  FORMATC  FOURTH  ORDER  NUMERATOR  COEFFICIENTS  (NORMALIZED)',/, 

&5(1X,E12.5,2X,E12.5,/)) 

530  FORMATC  FOURTH  OR.OER  DENOMINATOR  COEFFICIENTS  (NORMALIZED)',/, 
&5(1X,E12.5,2X,E12.5,/),//) 

CALL  MAKP0L( I2,0Z21,0N21 ) 

CALL  MAKPOL( I2,DP21,D021 ) 

DN213(3)=CMPLX( 1 . .0. ) 

DD213( 3)=CMPLX(  1 .  ,0. ) 

DO  612  1=1,2 

DN213( I )=0N21 ( I ) 

D0213( I )=D021 ( I ) 

612  CONTINUE 

WRITE(4,614) 

614  FORMATC  CASCADED  SECOND  ORDER  TRANSFER  FUNCTION  COEFFICIENTS',/) 
WRITE(4,615) 

WRITE(4,620)0N213( 3).0N213(2),0N213(  1 ) 

WRITE(4,630)D0213( 3),DD213(2),00213(1  ) 

615  FORMAT(/'  FIRST  STAGE  QUADRATIC  FUNCTION  COEFFICIENTS',/) 

620  FORMATC  COMPLEX  (REAL, IMAG)  NUMERATOR  COEFFICIENTS',/, 


&1X,E12.5,2X,E12.5, 
j.'  z**2  +',/,1X,E12.5,2X,E12.5.'  Z  +' . /.  IX,  El  2 . 5, 2X,  El  2 . 5,  /  ) 

630  FORMATC  COMPLEX  (REAL, IMAG)  DENOMINATOR  COEFFICIENTS',/, 
&1X,E12.5.2X,E12.5, 

Z**2  +',/,1X,E12.5,2X,E12.5,'  Z  +' , /, 1 X, El  2 . 5, 2X, El  2 . ! 
CALL  MAKPOL( I2,DZ22,DN22) 

CALL  MAKPOL( I2,DP22,DD22) 


+',/,1X,E12.5,2X,E12.5,/) 


ABP03860 
ABP03870 
ABP03880 
ABP03890 
ABP03900 
ABP03910 
ABP03920 
ABP03930 
ABP03940 
ABP03950 
ABP03960 
ABP03970 
ABP03980 
ABP03990 
ABP04000 
ABP04010 
ABP04020 
ABP04030 
ABP04040 
ABP04050 
ABP04060 
ABP04070 
ABP04080 
ABP04090 
ABP04100 
ABP041 10 
ABP04120 
ABP04130 
ABP04140 
ABP04150 
ABP04160 
ABP04170 
ABP04180 
ABP04190 
A8P04200 
ABP04210 
ABP04220 
ABP04230 
ABP04240 
ABP04250 
ABP04260 
ABP04270 
ABP04280 
ABP04290 
ABP04300 
ABP04310 
ABP04320 
ABP04330 
ABP04340 
ABP04350 
ABP04360 
ABP04370 
ABP04380 
ABP04390 
ABP04400 


ooooooooooooooooooooooooooooooooooooo 


FILE;  ABPOBP  FORTRAN  A1 


DN223(3)=CMPLX(1,,0. ) 

D0223(3)=CMPU<(1.,0. ) 

DO  712  1=1,2 

DN223( I )=DN22( I ) 

DD223( I )=DD22( 1 ) 

712  CONTINUE 

WRITE(4.715) 

WR I TE( 4. 720 ) 0N223 (  3 ) ,  0N223  ( 2 ) .  0N223 ( 1  ) 
WRITE(4,730)DD223(3).DD223(2),D0223( 1 ) 

715  FORMAT(/'  SECOND  STAGE  QUADRATIC  FUNCTION  COEFFICIENTS',//) 
720  FORMATC  complex  (REAL, IMAG)  NUMERATOR  COEFFICIENTS',/, 
8e1X,E12.5.2X,E12.5, 

jj*  Z**2  +',/.1X,E12.5,2X,E12.5. '  Z  +' . /, IX, E12. 5. 2X, E12. 5, / ) 
730  FORMATC  COMPLEX  (REAL, IMAG)  DENOMINATOR  COEFFICIENTS',/, 
«e1X,E12.5,2X,E12.5, 

8c'  2**2  +',/,1X,E12.5,2X,E12.5,'  Z  +' , /, IX, E12. 5, 2X, E12. 5, / ) 

STOP 
END 


SUBROUTINE  PMPY 
PURPOSE 

MULTIPLY  TWO  POLYNOMIALS 
USAGE 

CALL  PMPY(Z, IOIMZ,X, IOIMX,Y, lOIMY) 

DESCRIPTION  OF  PARAMETERS 

Z  -  VECTOR  OF  RESULTANT  COEFFICIENTS,  ORDERED  FROM 
SMALLEST  TO  LARGEST  POWER 
DIMENSION  OF  Z  (CALCULATED) 


lOIMZ 

X 

lOIMX 

Y 

IDIMY 


ABP04410 
ABP04420 
ABP04430 
ABP04440 
ABP04450 
ABP04460 
ABP04470 
ABP04480 
ABP04490 
A8P04500 
ABP04510 
ABP04520 
ABP04530 
ABP04540 
ABP04550 
ABP04560 
ABP04570 
ABP04580 
ABP04590 
.ABP04600 
ABP04610 
ABP04620 
ABP04630 
ABP04640 
ABP04650 
AB  P‘04660 
ABP04670 
ABP04680 
ABP04690 
ABP04700 
ABP04710 
ABP04720 
ABP04730 

VECTOR  OF  COEFFICIENTS  FOR  FIRST  POLYNOMIAL,  ORDEREDABP04740 


FROM  SMALLEST  TO  LARGEST  POWER 
DIMENSION  OF  X  (DEGREE  IS  IDIMX-1) 

VECTOR  OF  COEFFICIENTS  FOR  SECOND  POLYNOMIAL, 
ORDERED  FROM  SMALLEST  TO  LARGEST  POWER 
DIMENSION  OF  Y  (DEGREE  IS  IDIMY-1) 


REMARKS 

Z  CANNOT  BE  IN  THE  SAME  LOCATION  AS  X 
Z  CANNOT  BE  IN  THE  SAME  LOCATION  AS  Y 

SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE 

METHOD 

DIMENSION  OF  Z  IS  CALCULATED  AS  I D I MX+ 1  0 1 MY-1 
THE  COEFFICIENTS  OF  Z  ARE  CALCULATED  AS  SUM  OF  PRODUCTS 
OF  COEFFICIENTS  OF  X  AND  Y  ,  WHOSE  EXPONENTS  ADD  UP  TO  THE 
CORRESPONDING  EXPONENT  OF  Z. 


ABP04750 

ABP04760 

ABP04770 

A8P04780 

ABP04790 

ABP04800 

ABP04810 

ABP04820 

ABP04830 

ABP04840 

ABP04850 

ABP04860 

ABP04870 

A8P04880 

ABP04890 

ABP04900 

ABP04910 

ABP04920 

ABP04930 

.ABP04940 

ABP04950 
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C 


SUBROUTINE  PMPY(Z, I  0 1 MZ, X, 1 D IMX, Y, I D I  MY) 
DIMENSION  Z( 1 ),X( 1 ).Y( 1 ) 

IF( IDIMX*IDIMY)10, 10,20 
10  IDIMZ=0 
GO  TO  50 

20  I0IMZ=I0IMX+I0IMY-1 
DO  30  1=1 , IDIMZ 
30  Z( I )=0. 

DO  40  1=1 . lOIMX 
DO  40  J=1 , IDIMY 
K=l+J-1 

40  Z( K)=X( I )*Y(J )+Z( K) 

50  RETURN 
END 


SUBROUTINE  MAKPOL 
PURPOSE 

TO  COMPUTE  THE  COMPLEX  COEFFICIENTS  OF  AN  N-TH  DEGREE  POLY¬ 
NOMIAL  GIVEN  N  COMPLEX  ROOTS  OF  THE  POLYNOMIAL 

USAGE 

CALL  MAKPOL(N.R.C) 


ABP04960 
ABP04970 
ABP04980 
ABP04990 
ABP05000 
ABP05010 
ABP05020 
ABP05030 
ABP05040 
ABP05050 
ABP05060 
ABP05070 
ABP05080 
ABP05090 
ABP05100 
ABP051 10 
■ABP05120 
ABP05130 
ABP05140 
A8P05150 
ABP05160 
ABP05170 
ABP05180 
ABP05190 
ABP05200 
ABP05210 


ABP05220 

DESCRIPTION  OF  PARAMETERS  ABP05230 

N  -  NUMBER  OF  ROOTS  GIVEN  AND  DEGREE  OF  POLYNOMIAL.  THE  ABP05240 

COEFFICIENT  OF  THE  HIGHEST  POWER  OF  THE  UNKNOWN  IS  ALWAYS  ABP05250 
UNITY,  AND  IS  NOT  COMPUTED  BY  "MAKPOL".  A8P05260 

R  -  DOUBLE  PRECISION  COMPLEX  ARRAY  CONTAINING  THE  COMPLEX  ABP05270 
ROOTS  ABP05280 

C  -  DOUBLE  PRECISION  COMPLEX  ARRAY  CONTAINING  THE  COMPLEX  ABP05290 

COEFFICIENTS  ABP05300 

ABP05310 

REMARKS  ABP05320 

ARRAYS  R  AND  C  ARE  TYPED  C0MPLEX*16  ABP05330 


SUBROUTINE  MAKPOL(N,R,C) 
C0MPLEX*16  R(N),C(N) 
IF(N.LE.O)  RETURN 
DO  10  1=1, N 
10  C(  I )  =  R(  I  ) 

K=N 

M=N-1 

DO  20  L=1,M 
DO  30  1=2, K 
30  C(  I )=C(  I )+C( I -1  ) 

K=K-1 

DO  20  1=1, K 
J=l+L 

C(  I )=R(J)*C( I  ) 

20  CONTINUE 
K=N/2 


ABP05340 

ABP05350 

ABP05360 

ABP05370 

ABP05380 

ABP05390 

ABP05400 

ABP05410 

ABP05420 

ABP05430 

ABP05440 

ABP05450 

ABP05460 

ABP05470 

ABP05480 

ABP05490 

ABP05500 
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K=2*K/(N-K) 

DO  40  l=K,N,2 
40  C(  1  )  =  -C(  I ) 
RETURN 
END 


ABP05510 

ABP05520 

ABP05530 

ABP05540 

ABP05550 
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ABPOBP  OUTPUT 
SECTION  1  OUTPUT 

INPUT  AND  DERIVED  PARAMETERS  FOR  FURTHER  CALCULATIONS 

A  =  21.164001 
B  =  0.787152 

C  =  0.842554 

D  =  1.035090 

E  =  30.507828 
A1  =  1.463835 

FO  =  600.000 

WO  =  3769.911 

Q  =  12.000000 
K  =  1.000000 

K1  =  1.000000 

K2  1 . 000000 
WO(DIG)  =  3712.266 

FOfDIG)  =  590.825 


ELLIPTIC  ANALOG  BPF  COMPONENT  VALUES 

FIRST  STAGE 

C11  -  .996E-08 
C12  =  .995E-08 
R17  =  .267E+05 
R11  =  .393E+07 
R12  =  .785E+06 
R13  =  .257E+05 
R14  =  .134E+06 
R15  =  .945E+05 
R16  =  .258E+05 


SECOND  STAGE 

C21  =  .103E-07 
C22  =  . 103E-07 
R27  =  .267E+05 
R21  =  .408E+07 
R22  =  .813E+06 
R23  =  .267E+05 
R24  =  .134E+06 
R25  =  .182E+06 
R26  =  .266E+05 
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SECTION  2  OUTPUT 

ANALOG  ELLIPTIC  BANDPASS  FILTER  TRANSFER  FUNCTION 

NUMERATOR  COEFFICIENT  =  RHO  =  0.039811 

NUMERATOR  POLYNOMIAL  (NORMALIZED) 

0.1 0000 E+01  S**4  + 

0.0  S**3  + 

0. 29587 E+08  S**2  + 

0.0  S  + 

0.18991E+15 


NUMERATOR  POLYNOMIAL  ( UN -NORMAL I  ZED) 
0.3981  IE-01  S**4  + 

0.0  S**3  + 

0.11 779 E+07  S**2  + 

0.0  S  + 

0.75606E+13 


DENOMINATOR 
0. 10000E+01 
0. 24351 E+03 
0.27642E+08 
0.33558E+10 
0. 18991EM5 


POLYNOMIAL  (NORMALIZED) 
S**4  + 

S**3  + 

S**2  + 

S  + 


SECTION  2A  OUTPUT 

ANALOG  FILTER  COMPLEX  POLES  AND  ZEROS 


ANALOG  FILTER 
-0.45776E-03 
-0.45776E-03 
0.45776E-03 
0.45776E-03 


ZEROS 

0.30683E+04 

-0.30683E+04 

0.44914E+04 

-0.44914E+04 


ANALOG  FILTER  POLES 
-0.58188E+02  0.35859E+04 

-0.58188E+02  -0.35859E+04 

-0.63567E+02  0.38421E+04 

-0.63567E+02  -0. 38421 E+04 
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SECTION  3  OUTPUT 


EQUIVALENT  DIGITAL  FILTER  TRANSFER  FUNCTION 

NUMERATOR  COEFFICIENT  =  0.39516E-01 

NUMERATOR  (NORMALIZED) 

0.10000E+01  + 

-0.36279E+01  Z**-1  + 

0. 52861 E+01  Z**-2  + 

-0.36279E+01  Z**-3  + 

0.1 0000 E+01  Z**-4 


NUMERATOR  { UN -NORMAL I ZED) 
0.39516E-01  + 
-0.14336E+00  Z**-1  + 
0.20888E+00  Z**-2  + 
-0.14336E+00  Z**-3  + 
0.39516E-01  Z**-4 


DENOMINATOR 
0.10000E+01  + 
-0.36251  E+01  Z*^*-1  + 
0.52586E+01  Z**-2  + 
-0.35768E+01  Z**-3  + 
0.97353E+00  Z**-4 


SECTION  3A  OUTPUT 

DIGITAL  FILTER- COMPLEX  POLES  ANO  ZEROS  AND  RADIUS 


ZERO  LOCATIONS  (REAL, I  MAG)  AND  RADIUS 
0.87496E+00  0.48595E+00  0.10009E+01 

0.87496E+00  -0.48595E+00  0.10009E+01 

0.93896E+00  0.34135E+00  0.99909E+00 

0.93896E+00  -0.34135E+00  0.99909E+00 


POLE  LOCATIONS  (REAL,  I  MAG)  AND  RADIUS 
0.90781E+00  0.40813E+00  0.99533E+00 

0.90781E+00  -0.40813E+00  0.99533E+00 

0.90475E+00  0.40493E+00  0.99123E+00 

0.90475E+00  -0.40493E+00  0.99123E+00 


SECTION  4  OUTPUT 


REASSEMBLE  COEFFICIENTS  FROM  POLES  AND  ZEROS 


SINGLE  FOURTH  ORDER  TRANSFER  FUNCTION  COEFFICIENTS 


FOURTH  ORDER  NUMERATOR  COEFFICIENTS  (NORMALIZED) 
0.10000E+01  0.0 

-0.36279E+01  0.0 

0.52861E+01  0.0 

-0.36279E+01  0.0 

0. 99988 E+00  0.0 

FOURTH  ORDER  DENOMINATOR  COEFFICIENTS  (NORMALIZED) 
0.10000E+01  0.0 

-0.36251E+01  0.0 

0.52586E+01  0.0 

-0.'35766E+01  -0.18041E-15 

0.97339E+00  0.0 


CASCADED  SECOND  ORDER  TRANSFER  FUNCTION  COEFFICIENTS 


FIRST  STAGE  QUADRATIC  FUNCTION  COEFFICIENTS 

COMPLEX  (REAL, IMAG)  NUMERATOR  COEFFICIENTS 
0.10000E+01  0.0  Z**2  + 

-0.17499E+01  0.0  Z  + 

0.10017E+01  0.0 

COMPLEX  (REAL, IMAG)  DENOMINATOR  COEFFICIENTS 
0.10000E+01  0.0  Z**2  + 

-0.18156E+01  0.0  Z  + 

0.99068E+00  0.0 


SECOND  STAGE  QUADRATIC  FUNCTION  COEFFICIENTS 


COMPLEX  (REAL, IMAG)  NUMERATOR  COEFFICIENTS 
0.10000E+01  0.0  Z**2  + 

-0.18779E+01  0.0  Z  + 

0.99817E+00  0.0 

COMPLEX  (REAL. IMAG)  DENOMINATOR  COEFFICIENTS 
0.10000E+01  0.0  Z**2  + 

-0.18095E+01  0.0  Z  + 

0.98255E+00  0.0 


ooooooooo 


FILE:  ABPF.R 


FORTRAN  A1 


PROGRAM  TO  PLOT  ANALOG  BAND-PASS  FILTER  FREQUENCY  AND  PHASE 
RESPONSE  OF  THE  ELLIPTIC  FILTER  TRANSFER  FUNCTION 


Q*'innnn»'*********************************'***********#**')f#****-H'***********/\B  POOO 1 0 

*ABP00020 

APPENDIX  D  *ABP00030 

*ABP00040 

FORTRAN  PROGRAM  ABPFR  *ABP00050 

•ABP00060 
*ABP00070 

PROGRAM  TO  PLOT  ANALOG  BAND-PASS  FILTER  FREQUENCY  AND  PHASE  *ABP00080 

RESPONSE  OF  THE  ELLIPTIC  FILTER  TRANSFER  FUNCTION  *ABP00090 

*ABP00100 

Q************************  *****************************************  ***-if***/\B  PO0 1  10 
C  TYPE  DECLARATIONS  ABP00120 

IMPLICIT  REAL(A-H.O-Z), INTEGER( I -N)  A8P00130 

REAL  W( 1001 ).HMAG( 1001 ),HMAGN( 1001 ),HMAGDB( 1001 ),WX, F( 1001 )  ABP00140 

REAL  A(5),B(5),HPHASE(  1001  )  ABPOOl'iO 

COMPLEX  S,H  ABP00160 

C  NORMALIZED  ANALOG  TRANSFER  FUNCTION  COEFFICIENTS  ABP00170 

A( 1 )  =  1 .  ABP00180 

A(2)  =  0.0  A8P00190 

A(3)  =  0.30513E+8  ABP00200 

A(4)  =  0.0  ABP00210 

A(5)  =  0.20198E+15  ABP00220 

B(  1  )  =  1.0  ABP00230 

B(2)  =  0.24729E+3  ABP00240 

B(3)  =  0.28507E+8  ABP00250 

B(4)  =  0.35145E+10  ABP00260 

B(5)  =  0.20198E+15  ABP00270 

C  CONSTANTS  ABP00280 

PI  =  3.1415927  A8P00290 

C  EVALUATE  MAGNITUDE  AND  PHASE  OF  H(JW)  ABP00300 

DO  10  I  =  1, 1001  ABP00310 

F( I )  =  FLOAT( I -1 )  ABP00320 

W(  I )  =  (2.*PI*F(  I  )  )  ABP00330 

S  =  CMPLX(0. ,W( I ) )  ABP00340 

H=  (A( 1 )*(S**4)+A(2)*{S**3)+A(3)*(S**2)+A(4)*S+A(5) )/  ABP00350 

&( 8( 1 )*(S**4)+B(2)*( S**3 )+8( 3 )*( S**2)+B(4)*S+B(5) )  ABP00360 

HMAG( I )  =  CABS(H)  ABP00370 

X  =  REAL(H)  .  ABP00380 

Y  =  AIMAG(H)  ABP00390 

HPHASE( I )  =  ATAN(Y/X)*180./PI  ABP00400 

10  CONTINUE  ABP00410 

C  NORMALIZE  MAGNITUDE  ABP00420 

AMAX  =0.0  ABP00430 

DO  20  I  =  1,1001  ABP00440 

I  F( HMAC(  I ) .GT. AMAX)  AMAX  =  HMAG(  I )  ABP00450 

20  CONTINUE  ABP00460 

DO  30  I  =  1,1001  ABP00470 

HMAGN( I )  =  HMAG( I )/AMAX  ABP00480 

HMAGDB( I )  =  20.0  *  ALOG10( HMAG( I ) )  ABP00490 

30  CONTINUE  ABP00500 

DO  40  I  =  1 , 1001  ABP00510 

WRITE  (4,50)  I , F(  I  ),W(  I  ),HMAG(  I  ),HMAGN(  I ),HMAGDB(  I  ),HPHASE(  I  )  ABP00520 

50  FORMAT( I4,6(1X,E10.3))  ABP00530 

40  CONTINUE  ABP00540 

C . . . - . ABP00550 


ooo  ooo  o  on  o  o  ooo  non  o  on  o  n  non  on 


FILE:  ABPFR 


FORTRAN  A1 


GRAPHICS  PARAMETERS  FOR  MAGNITUDE  VS  FREQUENCY 


CALL  LRGBUF 
CALL  COMPRS 
CALL  TEK618 
CALL  VRSTEC( 0,0.0) 

SETUP  THE  PLOTTING  AREA 
CALL  PAGE  (11.0,8.5) 

CALL  NOBRDR 

CALL  AREA2D(9.0,6.5) 

.  LABEL  THE  X  &  Y  AXES 

CALL  XNAME( ' FREQUENCY  (HZ)$'.100) 

CALL  YNAME( 'AMPLITUDES' , 100) 

CALL  HEAD  I N( 'ANALOG  ELLIPTIC  BPF  FREQUENCY  RESPONSES' , 1 00, 1 . 6, 2 ) 
CALL  HEAD  I N{ 'AMPLITUDE  VS  FREQ  ( F0=600  H2)S‘ . 100, 1 . , 2 ) 

DEFINE  THE  AXES 

CALL  GRAF(0.0, 'SCALE' , 1000. , -0.5. ' SCALE* , +1 . 5 ) 

DRAW  THE  CURVES 
CALL  THKCRV(0.02) 

CALL  MARKER( 15) 

CALL  curve; F.HMAGN, 1001,0) 

TERMINATE  THIS  PLOT 
CALL  ENOPL(O) 


GRAPHICS  PARAMETERS  FOR  MAGNITUDE  IN  DBS  VS  FREQUENCY 


CALL  LRGBUF 
CALL  COMPRS 
CALL  TEK618 
CALL  VRSTEC( 0,0,0) 

SETUP  THE  PLOTTING  AREA 
CALL  PAGE  (11.0,8.5) 

CALL  NOBRDR 

CALL  AREA2D(9.0.6.5) 

.  LABEL  THE  X  &  Y  AXES 

CALL  XNAME( ' FREQUENCY  (HZ)S',100) 

CALL  YNAME( 'AMPLITUDE  (DB)S',100) 

CALL  HEAD  I N( 'ANALOG  ELLIPTIC  BPF  FREQUENCY  RESPONSES' , 100, 1 . 6, 2 ) 
CALL  HEAD  I N( 'AMPLITUDE  (08)  -VS  FREQ  ( F0=600  HZ ) S' , 1 00, 1 . , 2 ) 

.  DEFINE  THE  AXES 

CALL  GRAF(0.0, 'SCALE' , 1000. , -60.0, ' SCALE' . 30. 0 ) 

DRAW  THE  CURVES 
CALL  THKCRV(0.02) 

CALL  marker; 15) 

CALL  curve; F.HMAGOB, 1001,0) 

TERMINATE  THIS  PLOT 
CALL  ENDPL(O) 


GRAPHICS  PARAMETERS  FOR  PHASE  VS  FREQUENCY 


CALL  LRGBUF 
CALL  COMPRS 
CALL  TEK618 
CALL  VRSTEC(0.0,0) 

SETUP  THE  PLOTTING  AREA 


ABP00560 
ABP00570 
ABP00580 
ABP00590 
A8P00600 
ABP00610 
ABP00620 
ABP00630 
A8P00640 
ABP00650 
ABP00660 
ABP00670 
ABP00680 
ABP00690 
ABP00700 
ABP00710 
ABP00720 
ABP00730 
ABP00740 
ABP00750 
ABP00760 
ABP00770 
ABP00780 
ABP00790 
ABP00800 
ABP00810 
ABP00820 
ABP00830 
ABP00840 
ABP00850 
ABP00860 
ABP00870 
ABP00880 
ABP00890 
ABP00900 
ABP00910 
ABP00920 
ABP00930 
ABP00940 
ABP00950 
ABP00960 
ABP00970 
ABP00980 
ABP00990 
ABP01000 
ABP01010 
ABP01020 
ABP01030 
ABP01040 
ABP01050 
ABP01060 
ABP01070 
ABP01080 
ABP01090 
ABP01 100 


o  o 


FILE:  ABPFR 


FORTRAN  A1 


CALL  PAGE  (11.0,8.5) 

CALL  NOBRDR 

CALL  AREA20(9.0.6.5) 

C .  LABEL  THE  X  &  Y  AXES 

CALL  XNAME( ' FREQUENCY  (HZ)$',100) 

CALL  YNAME(' PHASE  ( DEGREES )$', 1 00 ) 

CALL  HEADINCaNALOG  ELLIPTIC  BPF  PHASE  RESPONSES 1 00,  1 . 6, 2  ) 
CALL  HEAOIN  ('PHASE  VS  FREQ  ( F0=600  HZ)$ ' , 1 00, 1 . , 2 ) 

C  .  DEFINE  THE  AXES 

CALL  GRAF(0.0. 'SCALE', 1000. ,-100., 'SCALE', 100. ) 

.  DRAW  THE  CURVES 
CALL  THKCRV(0.02) 

CALL  MARKER(15) 

CALL  CURVE( F,HPHASE, 1001 ,0) 

C .  TERMINATE  THIS  PLOT 

CALL  ENDPL(O) 

CALL  DONEPL 

STOP 

END 


ABP01110 
ABP01 120 
ABP01 130 
ABP01 140 
ABP01 150 
ABP01 160 
ABP01 170 
ABP01 180 
ABP01 190 
ABP01200 
ABP01210 
ABP01220 
ABP01230 
ABP01240 
ABP01250 
ABP01260 
ABP01270 
ABP01280 
ABP01290 
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FILE:  S22F 


FORTRAN  A1 


DN223( 1 )=0. 998169 
DD223(3)=1 . 

DD223(2)=-1 .809446 
00223 ( 1 )=0. 982544 

C  PRINT  SECONO  STAGE  TRANSFER  FUNCTION 

WR I TE(  4, 87 )0N223 ( 3 ) .  DN223 ( 2 ) . DN223(  1  ) . 0D223( 3 ) , DD223 ( 2 ) , 00223 ( 1 

82  FORMAT!'  SECONO  STAGE  TRANSFER  FUNCTION  (2920  EQUIVALENT)',//, 
&'  ',E14.6,'  +  '.E14.6.'  Z**-1  +  ’.E14.6,'  Z**-2’,/. 

_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ I 

«e'  ',E14.6,’  +  '.E14.6,'  Z**-1  +  '.E14.6,'  Z**-2',///) 

C  INITIALIZE  VARIABLES 
Pl=3. 1415927 
SCALS1=0. 

SCALS2=0. 

C  SAMPLE  PERIOO  =  T  =  1.1521152  X  10**-4  SECONOS 
T=4.*192./6.666E6 

C  COMPUTE  SCALE  SUM  FOR  STAGES  TO  LIMIT  INPUT  AMPLITUOE 
DO  6  K=1 .3 

SCALS1=SCALS1+ABS(0N213(K) ) 

SCALS1  =  SCALS1+ABS(  D0213(  K) ) 

SCALS2=SCALS2+ASS(  0N223  (  K ) ) 

SCALS2=SCALS2+ABS(  00223!  K) ) 

6  CONTINUE 

C  ENSURE  SCALE  SUM  FACTORS  WILL  LIMIT  OUTPUT  TO  LESS  THAN  ONE 
SCALS1=SCALS1+1 . E-6 
SCALS2=SCALS2+1 .E-6 

C  COMPUTE  SIMULATED  INPUT  MAGNITUDE  LIMIT 
SINMAG=1 ./!SCALS1*SCALS2) 

C  PRINT  STAGE  SCALE  SUMS  AND  INPUT  MAGNITUDE  LIMIT 
WR I TE ( 4 , 85 ) SCALS 1 , SCALS2 , S I NMAG 

85  FORMAT!//,'  SCALE  FACTORS  AND  INPUT  MAGNITUDE  LIMIT',//, 

8e'  FIRST  STAGE  SCALE  SUM  =  ',E14.6,/, 

&'  SECONO  STAGE  SCALE  SUM  =  ',E14.6,/, 

&'  INPUT  AMPLITUDE  LIMITED  TO  +/-  ',E14.6,///) 

WRITE(4,86) 

86  FORMAT! ' 1 '  ) 

C  BEGIN  SIMULATION  FOR  SPECIFIED  FREQUENCIES  GIVEN  BY  F!L) 

C##*#*«******** ****************** 

C  ADJUST  AS  NECESSARY 
DO  20  L=1,6 

Q******************************** 

C  COMPUTE  SIMULATION  RUN  INPUT  CONSTANT  FOR  EACH  FREQUENCY 
TWOPI F=2.*P1*F! L) 

C  INITIALIZE  STAGE  INPUTS  AND  OUTPUTS 
IM0UT=0 
M0UT=0. 

DO  5  1=1,3 
XI!  I  )=0. 

X2!  I  )=0. 

Yl! I )=0. 

Y2!  I  1=0. 

5  CONTINUE 

C  PRINT  SIMULATION  HEADINGS 
WRITE!4,98)F! L) 

98  FORMAT!'  FILTER  FREQUENCY  RESPONSE  FOR  F  =  ',F5.0,'  HZ',/) 


S2200560 
S2200570 
S2200580 
S2200590 
S2200600 
)  S2200610 

S2200620 
S2200630 
,/,S2200640 
S2200650 
S2200660 
S2200670 
S2200680 
S2200690 
S2200700 
S2200710 
S2200720 
S2200730 
S2200740 
S2200750 
S2200760 
S2200770 
S2200780 
S2200790 
S2200800 
S2200810 
S2200820 
S2200830 
S2200840 
S2200850 
S2200860 
S2200870 
S2200880 
S2200890 
S2200900 
S2200910 
S2200920 
.S2200930 
S2200940 
S2200950 
S2200960 
S2200970 
S2200980 
S2200990 
S2201000 
S2201010 
S2201020 
S2201030 
S2201040 
S2201050 
S2201060 
S2201070 
S2201080 
S2201090 
S2201 100 
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ooo  o  o o o o o o o o o o o o o o o o o o o 


FILE:  S22F 


FORTRAN  A1 


THIS  PROGRAM  SIMULATES  THE  EXECUTION  OF  A  2920  PROGRAM 
FOR  A  600  HZ  BANDPASS  FILTER  TRANSFER  FUNCTION  WHICH  IS  THE 
PRODUCT  OF  TWO  SECOND  ORDER  FILTER  SECTIONS 


H(Z)  = 


DN213(Z)  DN223(Z) 

- X - 

DD213(Z)  D0223(Z) 


THE  SIMULATION  IS  PERFORMED  OVER  A  RANGE  OF  DIFFERENT  INPUT 
FREQUENCIES  ABOUT  THE  TARGET  CENTER  FREQUENCY  OF  600  HZ 


C**********'»*#*******#*******#******'************'*****#***'if****-»****')t***-tfS2200010 

*32200020 

APPENDIX  G  *52200030 

*52200040 

FORTRAN  PROGRAM  S22F  *32200050 

*$2200060 
*52200070 

THIS  PROGRAM  SIMULATES  THE  EXECUTION  OF  A  2920  PROGRAM  *$2200080 

FOR  A  600  HZ  BANDPASS  FILTER  TRANSFER  FUNCTION  WHICH  IS  THE  *32200090 

PRODUCT  OF  TWO  SECOND  ORDER  FILTER  SECTIONS  *32200100 

*32200110 

Y(Z)  DN213(Z)  DN223(Z)  *32200120 

H(Z)  - - - - X -  *32200130 

X(Z)  DD213(Z)  D0223(Z)  *32200140 

*32200150 

THE  SIMULATION  IS  PERFORMED  OVER  A  RANGE  OF  DIFFERENT  INPUT  *32200160 

FREQUENCIES  ABOUT  THE  TARGET  CENTER  FREQUENCY  OF  600  HZ  *32200170 

*32200180 

*'tMnt*-»**'»******************#***********#********'**********-H-)nnnf***#****S22001 90 
VARIABLE  DECLARATIONS  32200200 

INTEGER  IMOUT  32200210 

REAL  TX. INO,OUTO, F(9)  S2200220 

REAL  X1(3),X2(3),Y1(3),Y2(3)  32200230 

REAL  SCALS1,SCALS2,SINMAG,M0UT  32200240 

REAL  0N213(3). 00213(3), DN223(3),DD223(3),T, PI, TWOPIF  32200250 

INPUT  FREQUENCIES  32200260 

F(1)=500.  S2200270 

F(2)=575.  S2200280 

F(3)=590.825  32200290 

F(4)=600.  32200300 

F(5)=625.  32200310 

F(6)=700.  32200320 

F(7)=  32200330 

F(8)=  32200340 

F(9)=  32200350 

WRITE(4,80)  32200360 

80  FORMAT ( '  PROGRAM  S22F  OUTPUT',//,  32200370 

&'  FOURTH  ORDER  FILTER  FREQUENCY  RESPONSE',/,  32200380 

&'  (CASCADED  SECOND  ORDER  SECTIONS)',///)  32200390 

C  FIRST  SECOND  ORDER  STAGE  COEFFICIENTS  S2200400 

DN213(3)=1.  S2200410 

DN213(2)=-1 .749875  32200420 

DN213( 1 )=1 .001585  S2200430 

DD213(3)=1.  S2200440 

D0213(2)=-1 .81555  32200450 

DD213( 1 )=0. 990601  32200460 

C  PRINT  FIRST  STAGE  TRANSFER  FUNCTION  S2200470 

WRITE(4,81 )0N213( 3),DN213(2),0N213( 1 ) , D021 3( 3 ) , DD21 3 ( 2 ) , DD21 3 ( 1 )  32200480 

81  FORMAT ( '  FIRST  STAGE  TRANSFER  FUNCTION  (2920  EQUIVALENT)',//,  32200490 

&'  ',E14.6,'  +  ',E14.6,'  Z**-1  ',E14.6,'  Z**-2',/,  32200500 

8c'  . - . - - - - -' ,/,S2200510 

Sc'  ',E14.6,'  +  ',E14.6,'  Z**-1  +  ’,E14.6,'  Z**-2',///)  S2200520 

C  SECOND  SECOND  ORDER  STAGE  COEFFICIENTS  32200530 

DN223(3)=1.  S2200540 

DN223(2)=-1 .877805  S2200550 
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FILE:  S22IG 


FORTRAN  A1 


CALL  ENOPL(O) 
CALL  DONE PL 
STOP 
END 


S2202210 

S2202220 

S2202230 

S2202240 
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■t. 


ooo  o  o  o  o  o  o  ooo 


FILE;  S22IG  FORTRAN  A1 


CALL  CROSS 

CALL  GRAF(0. . TOO. . 1 100. . 0. 0. 0. 5, 2. 5 ) 

C .  DRAW  THE  BAR  CURVES 

CALL  BARPAT(16) 

CALL  BARWI0(0.02) 

CALL  VBARS( XKHZ, Z, YMAG, 1 28 ) 

C .  TERMINATE  THIS  PLOT 

CALL  ENOPL(O) 


GRAPHICS  PARAMETERS  FOR  YPHASE  VS  K 


CALL  LRGBUF 
CALL  TEK618 
CALL  COMPRS 

SETUP  THE  PLOTTING  AREA 
CALL  PAGE  (11.0,8.5) 

CALL  NOBROR 

CALL  AREA2D(9.0,6.5) 

.  .  U^BEL  THE  X  *  Y  AXES 
CALL  XNAME( ' FREQUENCY  (HZ)  S'.lOO) 

CALL  YNAMEC PHASE  ( RADS ) $’ , 1 00 ) 

CALL  HEAOIN  ('OFT  OF  DIGITAL  FILTER  IMPULSE  RESPONSES' , 100, 1 
CALL  HEAOIN  ('PHASE  VS  FREQUENCY$' , 100, 1 . , 2 ) 

DEFINE  THE  AXES 
CALL  CROSS 

CALL  GRAF(0. , 100 . , 1 1 00 . , -2 . 0, 0 . 5, 2. 0 ) 

.  DRAW  THE  PHASE  CURVE 
CALL  THKCRV(O.OI) 

CALL  MARKER( 15) 

CALL  CURVE(XKHZ,YPH, 128,0) 

.  TERMINATE  THIS  PLOT 
CALL  ENOPL(O) 


GRAPHICS  PARAMETERS  FOR  IMPULSE  RESPONSE  VS  N 


CALL  LRGBUF 
CALL  TEK618 
CALL  COMPRS 

SETUP  THE  PLOTTING  AREA 
CALL  PAGE  (11.0,8.5) 

CALL  NOBROR 

CALL  AREA2D(9.0,6.5) 

,  .  LABEL  THE  X  8c  Y  AXES 
CALL  XNAME( ' ITERATION  (N)  $',100) 

CALL  YNAME( 'MAGNITUDES' , 100) 

CALL  HEAOIN  ('DIGITAL  FILTER  IMPULSE  RESPONSES’ , 100, 1 . 6, 3 ) 
CALL  HEAOIN  ('OUTPUT  VS  ITERATION  $’,100,1. ,3) 

CALL  HEAOIN  {'INPUT  =  .017  (SINMAG)  AT  T  =  0$' , 1 00, 1 . , 3 ) 
DEFINE  the  axes 

CALL  GRAF(0. ,64. , 1024. , - . 03 , . 01 , . 03 ) 

.  DRAW  THE  IMPULSE  RESPONSE  CURVE 
CALL  THKCRV(O.OI) 

CALL  MARKER(  15) 

CALL  CURVE(XK,XN, 1024,0) 

.  TERMINATE  THIS  PLOT 


S2201660 

S2201670 

S2201680 

S2201690 

S2201700 

S2201710 

S2201720 

S2201730 

-  S2201740 

S2201750 

-  S2201760 

S2201770 
S2201780 
S2201790 
S2201800 
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S2201890 
S2201900 
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S2201950 
S2201960 
S2201970 

.  S2201980 

S2201990 

.  S2202000 

S2202010 

S2202020 
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S2202040 

S2202050 

S2202060 

S2202070 

S2202080 

S2202090 

S2202100 

$2202110 

S2202120 

S2202130 

S2202140 

S2202150 

S2202160 

S2202170 

S2202180 

S2202190 
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FILE:  S22IG 


FORTRAN  A1 


C  PRINT  PARAMETERS  FOR  EACH  SIMULATION  ITERATION 
IM1=I -1 

WR I TE( 4, 1 00 ) I  Ml . TX,  XI  ( 1  ) ,  Y2(  1  ) 

100  FORMAT( IX. I4,2X,3( F13.6,2X) ) 

C  USE  THIS  OUTPUT  FORMAT  FOR  EASYPLOT  ROUTINE 
C  WRITE(4,100)TX,X1(1).Y2(1) 

C  100  FORMAT(1X.3(F15.8,2X)) 

C  PERFORM  SIMULATION  SHIFT  DELAY 
DO  15  J=2,3.1 

Y1(5-J)=Y1(4-J) 

X1(5-J)=X1(4-J) 

Y2(5-J)=Y2(4-J) 

X2(5-J)=X2(4-J) 

15  CONTINUE 

10  CONTINUE 
'20  CONTINUE 

THIS  PROGRAM  CALCULATES  THE  OFT  OF  THE  IMPULSE  RESPONSE 
OVER  1024  VALUES.  THIS  IMPLIES  M  =  9  (2**9=1024).  IWK  IS  AN 
INTEGER  VECTOR  FOR  FFT2C  CALCULATION  OF  LENGTH  M+1  =  10 
M=10 

DO  30  1=1,1024 

A( I )=CONJG(A( I ) ) 

30  CONTINUE 

CALL  FFT2C(A.M, IWK) 

WRITE(4, 38) 

38  FORMAT(///. IX, 'DFT  IMPULSE  RESPONSE  OUTPUT  OVER  1024  ITERATIONS' 

«e,/,'  K  YMAG  YPHASE',/) 

DO  40  1=1,1024 
Z(l-1)=0. 

A( I )=CONJG(A( I ) ) 

XK{ I )=FLOAT( 1-1 ) 

XKHZ( I )=( 1 ./T)*(XK( I )/1024.  ) 

YMAG( I )=CABS(A( I ) ) 

YPH( I )=ATAN(AIMAG(A( I ) )/REAL(A( I ) ) ) 

WRITE(4,39)XK( I ),YMAG( I ),YPH( I ) 

39  FORMAT( IX, F8.0,4X, FI  2 . 4, 4X, F12 . 4) 

40  CONTINUE 


GRAPHICS  PARAMETERS  FOR  YMAG  VS  K 


CALL  LRGBUF 
C  CALL  TEK618 
CALL  COMPRS 

C  .  SETUP  THE  PLOTTING  AREA 

CALL  PAGE  (11.0,8.5) 

CALL  NOBRDR 


S2201 110 
S2201120 
S2201130 
S2201140 
S2201 150 
S2201160 
S220n70 
52201180 
S2201 190 
S2201200 
S2201210 
S2201220 
S2201230 
S2201240 
S2201250 
S2201260 
S2201270 
S2201280 
S2201290 
S2201 300 
S2201310 
S2201320 
S2201330 
S2201340 
S2201350 
S2201360 
S2201370 
S2201380 
S2201390 
S2201400 
S2201410 
S2201420 
S2201430 
S2201440 
S2201450 
S2201460 
S2201470 
S2201480 
S2201490 
S2201500 
S2201510 
S2201520 
S2201530 
S2201540 
S2201550 
S2201560 
S2201570 
S2201580 


C 


C 


CALL  AREA2D(9.0,6.5)  S2201590 
.  LABEL  THE  X  &  Y  AXES  S2201600 
CALL  XNAME( ' FREQUENCY  (HZ)$',100)  S2201610 
CALL  YNAME( 'MAGNITUDES' , 100)  S2201620 
CALL  HEADIN  ('DFT  OF  DIGITAL  FILTER  IMPULSE  RESPONSES' , 1 00, 1 . 6, 2 )  S2201630 
CALL  HEADIN  ('MAGNITUDE  VS  FREQUENCYS' , 100, 1 . , 2 )  S2201640 


DEFINE  THE  AXES 


S2201650 


FILE:  S22IG 


FORTRAN  A1 


SCALS1=0. 

SCALS2=0. 

C  SAMPLE  PERIOD  =  T  =  1.1521152  X  10**-4  SECONDS 
T=4.*192./6.666E6 

C  COMPUTE  SCALE  SUM  FOR  STAGES  TO  LIMIT  INPUT  AMPLITUDE 
DO  6  K=1,3 

SCALS1  =  SCALS1+ABS(ON213(  K) ) 

SCALS 1  =  SCALS 1 +ABS ( D02 1 3 ( K )  ) 

SCALS2=SCALS2+ABS( DN223( K) ) 

SCALS2=SCALS2+ABS( 00223 (K) ) 

6  CONTINUE 

C  ENSURE  SCALE  SUM  FACTORS  WILL  LIMIT  OUTPUT  TO  LESS  THAN  ONE 
SCALS1=SCALS1+1 . E-6 
SCALS2=SCALS2+1 .  E-6 

C  COMPUTE  SIMULATED  INPUT  MAGNITUDE  LIMIT 
SINMAG=1 ./(SCALS1*SCALS2) 

C  PRINT  STAGE  SCALE  SUMS  AND  INPUT  MAGNITUDE  LIMIT 
WR I TE( 4. 85 ) SCALS 1 . SCALS2. S I NMAG 
185  FORMAT(//. 'SCALE  FACTORS  AND  INPUT  MAGNITUDE  LIMIT',//, 
ge' FIRST  STAGE  SCALE  SUM  =  ',E14.6,/, 

&' SECOND  STAGE  SCALE  SUM  =  '.E14.6,/, 

4' INPUT  AMPLITUDE  LIMITED  TO  +/"  ',E14.6,///) 

C  PERFORM  IMPULSE  RESPONSE  SIMULATION 
C  INITIALIZE  STAGE  INPUTS  AND  OUTPUTS 
DO  5  1=1,3 
XI ( I )=0. 

X2( I )=0. 

Y1( I )=0. 

Y2( I )=0. 

5  CONTINUE 

C  PRINT  SIMULATION  HEADINGS 
WRITE(4,98) 

98  FORMAT!///, ' FILTER  IMPULSE  RESPONSE',//) 

WRITE(4,99) 

99  FORMAT!/,'  I  TIME  INI  0UT2',//) 

C  COMPOTE  SIMULATED  FILTER  RESPONSE  OVER  INDICATED  NUMBER  OF  SAMPLES  ! 
(;*■****•»•*#**#***•**•»***•»*•*•****•»*** 

C  ADJUST  AS  NECESSARY 

DO  10  1=1,1024 

C******************************* 

C  INI  =  xi!1)  =  IMPULSE  INPUT  AT  T=0. 

IF  ! I.EO.I)  X1!1)=SINMAG 
IF  ! I .NE. 1 )  XI ! 1 )=0. 

C  TX  =  TOTAL  ELAPSED  SAMPLE  TIME 
TX=T*FLOAT! I -1 ) 

C  0UT1  =  Y1!1)  =  FIRST  STAGE  OUTPUT  =  IN2  =  X2(1)  =  SECOND  STAGE  INPUT 
YU  1 )=0N213!3)*X1 ! 1 )+0N213|2)*X1!2)+DN213! 1 )*X1 !3)- 
&  D0213!2)*Y1!2)-0D213! 1 )*Y1!3) 

X2! 1 )=Y1 ! 1  ) 

C  0UT2  =  Y2!1)  =  SECOND  STAGE  OUTPUT  =  FILTER  OUTPUT 

Y2! 1 )=0N223|3)*X2! 1 )+0N223( 2 )*X2! 2 ) +DN223 ! 1 )*X2!3)- 
&  D0223!2)*Y2!2)-00223! 1 )*Y2!3) 

XN! I )=Y2! 1 ) 

C  FORM  COMPLEX  ARRAY  OF  IMPULSE  VALUES  FOR  OFT 
A! I )=CMPLX!Y2! 1 ),0. ) 
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FILE:  S221G  FORTRAN.  A1 

c 

*S2200020 

c 

THIS  PROGRAM  SIMULATES  THE  EXECUTION  OF  A  2920  PROGRAM 

*S2200030 

c 

FOR  A  600  HZ  BANDPASS  FILTER  TRANSFER  FUNCTION  WHICH  IS  THE 

*S2200040 

c 

PRODUCT  OF  TWO  SECOND  ORDER  FILTER  SECTIONS 

*S2200050 

c 

•S2200060 

c 

Y(Z)  0N213(Z)  DN223(Z) 

*S2200070 

c 

H(Z)  =  . . X . 

*S2200080 

c 

X(Z)  00213(Z)  0D223(Z) 

*S2200090 

c 

*S2200100 

c 

THE  SIMULATION  IS  PERFORMED  FOR  AN  IMPULSE  INPUT  EQUAL  TO  THE 

•S22001 10 

c 

GREATEST  ALLOWABLE  INPUT  (SINMAG)  AT  T=0.  WE  THEN  EXAMINE 

*S2200120 

c 

THE  FAST  FOURIER  TRANSFORM  OF  THE  IMPULSE  SEQUENCE  OVER  1024 

*S2200130 

c 

SAMPLES  TO  CONFIRM  THE  FREQUENCY  RESPONSE  OF  THE  SYSTEM. 

*S2200140 

c 

*S2200150 

c 

VARIABLE  DECLARATIONS 

S2200170 

1 NTEGER  IM1 ,M. IWK( 1 1 ) 

S2200180 

REAL  X1(3),X2(3).Y1(3).Y2(3) 

S2200190 

REAL  SCALS1.SCALS2, SINMAG 

S2200200 

REAL  DN2 1 3 ( 3 ) , 0D21 3(3), DN223 { 3 ) , DD223 ( 3 ) , T, TX 

S2200210 

COMPLEX  A(1024) 

S2200220 

REAL  XK( 1024).XKHZ( 1024), XN( 1024), YMAG( 1024), YPH( 1024), Z( 1024) 

S2200230 

c 

PRINT  OUTPUT  HEADING 

S2200240 

WRITE(4,80) 

80  TORMAT( ' EIGHTH  ORDER  FILTER  IMPULSE  RESPONSE',/, 

&'  (CASCADED  SECOND  ORDER  SECTIONS)',/, 

S2200250 

S2200260 

S2200270 

&'( SECOND  FOURTH  ORDER  BLOCK  OF  EIGHTH  ORDER  FILTER)',//) 

S2200280 

c 

FIRST  SECOND  ORDER  STAGE  COEFFICIENTS 

S2200290 

0N213(3)=1 . 

S2200300 

DN213(2)=-1. 749875 

.  S2200310 

0N213(1 )=1 .001585 

S2200320 

OD213(3)=1. 

S2200330 

00213(2)=-1 .81555 

S2200340 

DD213( 1 )=0. 990601 

S2200350 

c 

PRINT  FIRST  STAGE  TRANSFER  FUNCTION 

S2200360 

WRITE(4,81 )0N213(3),0N213(2),DN213(1 ),DD213(3),DD213(2),DD213(  1  ) 

S2200370 

81  FORMAT( ' SECOND  FIRST  STAGE  TRANSFER  FUNCTION',//, 

S2200380 

&E14.6,'  +  ',E14.6,'  Z**-1  +  ',E14.6,'  Z**-2',/, 

S2200390 

8e'  . 

/,S2200400 

&E14.6,'  +  ',E14.6,'  Z**-1  +  ',E14.6,'  Z**-2',///) 

S2200410 

c 

SECOND  SECOND  ORDER  STAGE  COEFFICIENTS 

S2200420 

DN223(3)=1 . 

S2200430 

0N223(2)=-1 .877805 

S2200440 

DN223( 1 )=0. 998169 

S2200450 

0D223(3)=1. 

S2200460 

DD223( 2 )=*1 .809446 

S2200470 

0D223( 1 )=0. 982544 

S2200480 

c 

PRINT  SECOND  STAGE  TRANSFER  FUNCTION 

S2200490 

WRITE(4,82)0N223( 3),DN223(2),DN223( 1 ) , DD223 ( 3 ) , D0223 ( 2 ) , DD223 ( 1 ) 

S2200500 

82  FORMAT ( 'SECOND  SECOND  STAGE  TRANSFER  FUNCTION',//, 

S2200510 

&E14.6,'  +  ',E14.6,'  Z**-1  +  ',E14.6,'  Z**-2',/, 

S2200520 

8e'  . ', 

/,S2200530 

&E14.6,'  +  ',E14.6,'  Z**-1  +  ',E14.6,'  Z**-2',///) 

S2200540 

c 

INITIALIZE  VARIABLES 

S2200550 

171 

S22I  PROGRAM  OUTPUT 

FOURTH  ORDER  FILTER  IMPULSE  RESPONSE 
(CASCADED  SECOND  ORDER  SECTIONS) 


FIRST  STAGE  TRANSFER  FUNCTION  (2920  COEFFICIENTS) 

0.100000E+01  +  -0. 174988E+01  Z**-1  +  0.100159E+01  Z**-2 


0.100000E+01  +  -0. 181555E+01  Z**-1  +  0.990601E+00  Z**-2 


SECOND  STAGE  TRANSFER  FUNCTION  (2920  COEFFICIENTS) 

0.100000E+01  +  -0. 187780E+01  Z**-1  +  0.998169E+00  Z**'2 


a.  100000E+01  +  -0. 180945E+01  Z**-1  +  0.982554E+00  Z**-2 


SCALE  FACTORS  AND  INPUT  MAGNITUDE  LIMIT 


FIRST  STAGE  SCALE  SUM  =  0. 75576 1E+01 

SECOND  STAGE  SCALE  SUM  =  0.766797E+01 

INPUT  AMPLITUDE  LIMITED  TO  +/“  0.172558E-01 


FILTER  IMPULSE  RESPONSE 


MAX  AMPLITUDE  OF  IMPULSE  RESPONSE  OVER  512  ITERATIONS  =  0.011935 
MAX  AMPLITUDE  OF  IMPULSE  RESPONSE  OVER  1024  ITERATIONS  =  0.011935 
MAX  AMPLITUDE  OF  IMPULSE  RESPONSE  OVER  1536  ITERATIONS  =  0.011935 
MAX  AMPLITUDE  OF  IMPULSE  RESPONSE  OVER  2048  ITERATIONS  =  0.011935 
MAX  AMPLITUDE  OF  IMPULSE  RESPONSE  OVER  2560  ITERATIONS  =  0.011935 
MAX  AMPLITUDE  OF  IMPULSE  RESPONSE  OVER  3072  ITERATIONS  =  0.011935 
MAX  AMPLITUDE  OF  IMPULSE  RESPONSE  OVER  3584  ITERATIONS  =  0.011935 
MAX  AMPLITUDE  OF  IMPULSE  RESPONSE  OVER  4096  ITERATIONS  =  0.011935 
MAX  AMPLITUDE  OF  IMPULSE  RESPONSE  OVER  4608  ITERATIONS  =  0.011935 
MAX  AMPLITUDE  OF  IMPULSE  RESPONSE  OVER  5120  ITERATIONS  =  0.011935 
MAX  AMPLITUDE  OF  IMPULSE  RESPONSE  OVER  5632  ITERATIONS  =  0.011935 
MAX  AMPLITUDE  OF  IMPULSE  RESPONSE  OVER  6144  ITERATIONS  =  0.011935 
MAX  AMPLITUDE  OF  IMPULSE  RESPONSE  OVER  6656  ITERATIONS  =  0.011935 
MAX  AMPLITUDE  OF  IMPULSE  RESPONSE  OVER  7168  ITERATIONS  =  0.011935 
MAX  AMPLITUDE  OF  IMPULSE  RESPONSE  OVER  7680  ITERATIONS  =  0.011935 
MAX  AMPLITUDE  OF  IMPULSE  RESPONSE  OVER  8192  ITERATIONS  =  0.011935 

MAX  AMPLITUDE  OCCURRED  AT  ITERATION  150 


170 
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FILE:  S22I 


FORTRAN  A1 


&  D2(2,2)*Y2(2)-D2(2,1 )*Y2(3) 

IF  ( (MXAMP.lt. (ABS(Y2(1 ))) ).AND. ( I .NE. 1 ) )  GO  TO  30 
GO  TO  40 

30  MXAMP=ABS(Y2( 1 ) ) 

IMXAMP=I 
40  CONT I NUE 

C  PRINT  PARAMETERS  FOR  EACH  SIMULATION  ITERATION 

WRITE(4.100)IM1.TX,X1(1),Y2(1) 

100  FORMATdX,  I4.2X,3(  F13.6,2X) ) 

USE  THIS  OUTPUT  FORMAT  FOR  EASYPLOT  ROUTINE 
WRITE(4. 100)TX.X1( 1 ).Y2( 1  ) 

100  FORMAT( 1X,3( F15.8,2X) ) 

***#'»*#««*#'»**#**«*'» 

C  PERFORM  SIMULATION  SHIFT  DELAY 
00  15  J=2,3,1 

Y1(5-J)=Y1(4-J) 

X1(5-J)=X1(4-J) 

Y2(5-J)=Y2(4-J) 

X2(5-J)=X2(4-J) 

15  CONTINUE 

I F  (MOD( I .512) )10, 14, 10 
14  WRITE(4, 16) I .MXAMP 

16  FORMAT ( '  MAX  AMPLITUDE  OF  IMPULSE  RESPONSE  OVER  ',15. 
St'  ITERATIONS  =  ',F9.6) 

10  CONTINUE 

WRITE(4, 18) I MXAMP 

18  FORMAT (/,'  MAX  AMPLITUDE  OCCURRED  AT  ITERATION  '.15) 

STOP 

END 
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S2201120 
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FILE:  S221 


FORTRAN  A1 


82  FORMATC  SECOND  STAGE  TRANSFER  FUNCTION  (2920  COEFFICIENTS)',//. 
&'  ’,E14.6,'  +  '.E14.6.'  Z**-1  +  ',E14.6,'  Z**-2',/, 

&'  . './ 

&'  ',E14.6,'  +  ',E14.6.'  Z**'1  +  ■,E14.6,'  Z**-2',///) 

INITIALIZE  VARIABLES 
SCALS1=0. 

SCALS2=0 . 

SAMPLE  PERIOD  =  T  =  1.1521152  X  10**-4  SECONDS 
T=4.*192./6.666E6 

COMPUTE  SCALE  SUM  FOR  STAGES  TO  LIMIT  INPUT  AMPLITUDE 
DO  6  K=1,3 

SCALS1=SCALS1+ABS(N2(  1  ,K) ) 

SCALS1  =  SCALS1+ABS(  D2(  1 ,  K) ) 

SCALS2=SCALS2+ABS(  N2(  2,  K) ) 

SCALS2=SCALS2+ABS(D2(2,K)) . 

6  CONTINUE 

ENSURE  SCALE  SUM  FACTORS  WILL  LIMIT  OUTPUT  TO  LESS  THAN  ONE 
SCALS1  =  SCALS1+1  .  E-6 
SCALS2=SCALS2+1  .  E-6 

COMPUTE  SIMULATED  INPUT  MAGNITUDE  LIMIT 
S I NMAG= 1 . / ( SCALS1  *SCALS2 ) 

PRINT  STAGE  SCALE  SUMS  AND  INPUT  MAGNITUDE  LIMIT 
WR I TE( 4, 85 ) SCALS1 . SCALS2 ,  S I NMAG 
85  FORMAT(//,'  SCALE  FACTORS  AND  INPUT  MAGNITUDE  LIMIT',///, 

&'  FIRST  STAGE  SCALE  SUM  =  '.E14.6,/, 

«e'  SECOND  STAGE  SCALE  SUM  =  ’,E14.6,/. 

&'  INPUT  AMPLITUDE  LIMITED  TO  +/“  ' , E14. 6, //// ) 

PERFORM  IMPULSE  RESPONSE  SIMULATION 
INITIALIZE  STAGE  INPUTS  AND  OUTPUTS 
DO  5  1=1,3 
XI ( I )=0. 

X2( I )=0. 

Y1( I )=0. 

Y2( I )=0. 

5  CONTINUE 
MXAMP=0. 

I MXAMP=0 

PRINT  SIMULATION  HEADINGS 
WRITE(4,98) 

98  FORMATC  FILTER  IMPULSE  RESPONSE',//) 

WRITE(4,99) 

99  FORMAT(/,'  I  TIME  INI  0UT2',//) 

COMPUTE  SIMULATED  FILTER  RESPONSE  OVER  REQUIRED  ITERATIONS  (NUMIT) 

DO  10  1=1, NUMIT 

INI  =  X1(1)  =  IMPULSE  INPUT  AT  T=0. 

IF  ( I . EQ. 1 )  XI ( 1 )=SINMAG 
IF  ( I .NE. 1 )  XI ( 1 )=0. 

TX  =  TOTAL  ELAPSED  SAMPLE  TIME 
TX=T*FL0AT( I -1 ) 

OUT1  =  Y1(1)  =  FIRST  STAGE  OUTPUT  =  IN2  =  X2(1)  =  SECOND  STAGE  INPUT 
Y1( 1  )=N2( 1,3)*X1( 1 )+N2( 1,2)*X1(2)+N2( 1, 1 )*X1 ( 3)- 
ft  D2(1,2)*Y1(2)-02(1,1)*Y1(3) 

X2( 1 )=Y1( 1 ) 

0UT2  =  Y2(1)  =  SECOND  STAGE  OUTPUT  =  XN(  I  ) 

Y2( 1 )=N2(2,3)*X2( 1 )+N2(2,2)*X2(2)+N2(2, 1 )*X2(3)- 


S2200560 
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S2201090 

52201100 


ooooooooooooooooooo 


FILE:  S22I  FORTRAN  A1 


C*******'H'***-»***************'***'*********************'»****************'H'**S2200010 


*82200020 

APPENDIX  F  *82200030 

*82200040 

FORTRAN  PROGRAM  8221  *82200050 

*82200060 

*82200070 

THIS  PROGRAM  SIMULATES  THE  EXECUTION  OF  A  2920  PROGRAM  *82200080 

FOR  A  FOURTH  ORDER  ELLIPTIC  600  HZ  BANDPASS  FILTER  TRANSFER  *82200090 
TRANSFER  FUNCTION  WHICH  IS  THE  PRODUCT  OF  TWO  SECOND  ORDER  *82200100 

FILTER  SECTIONS  *82200110 

*82200120 

Y(Z)  N2(1,Z)  N2(2,Z)  *82200130 

H(Z)  - - - - X -  *82200140 

X(Z)  D2(1,Z)  D2(2,Z)  *82200150 

*82200160 

THE  SIMULATION  IS  PERFORMED  FOR  AN  IMPULSE  INPUT  EQUAL  TO  THE  *82200170 
GREATEST  ALLOWABLE  INPUT  (SINMAG)  AT  T=0  AND  ALLOWED  TO  RUN  *82200180 
OVER  NUMIT  ITERATIONS  TO  CHECK  FOR  STABILITY.  *82200190 

*32200200 


(;*'»**************'inf'if'if********'»*******'»***4f******'»'»***#******'******'»*****S220021 0 


C  VARIABLE  DECLARATIONS 

INTEGER  NUMIT, IMXAMP 

REAL  X1(3),X2(3),Y1(3).Y2(3) 

REAL  SCALS1,SCALS2.SINMAG,MXAMP 
REAL  N2(2.3),D2(2,3),T,TX 
C  DECLARE  NUMBER  OF  SIMULATION  ITERATIONS 
NUMIT=8192 

C  PRINT  OUTPUT  HEADING 
WRITE(4,80) 

80  FORMAT ( '  8221  PROGRAM  OUTPUT',//, 

&'  FOURTH  ORDER  FILTER  IMPULSE  RESPONSE',/, 

&'  (CASCADED  SECOND  ORDER  SECTIONS)',///) 

C  FIRST  SECOND  ORDER  STAGE  COEFFICIENTS 
N2( 1,3)=1 . 

N2(1,2)=-1. 749875 
N2(1,1)=1. 001585 
02(1, 3)=1. 

02(1, 2)=-1. 81555 
02(1,1 )=0. 990601 

C  PRINT  FIRST  STAGE  TRANSFER  FUNCTION 

WRITE(4,81  )N2(1,3),N2(1,2),'12(1,1),D2(1,3),D2(  1,2),D2(1,1  ) 

81  FORMAT( '  FIRST  STAGE  TRANSFER  FUNCTION  (2920  COEFFICIENTS)',//, 


&'  ',E14.6,' 

+  ',E14.6,' 

Z**-1  + 

'.E14.6, ' 

Z**-2',/, 

4'  ',E14.6,' 

+  ' ,E14.6,  ' 

Z**-1  + 

',E14.6,’ 

Z**-2 ’,///) 

C  SECOND  SECOND  ORDER  STAGE  COEFFICIENTS 
N2(2,3)=1. 

N2(2,2)=-1 .877805 
N2(2, 1 )=0. 998169 
02(2, 3)=1. 

D2(2,2)=-1 .809446 
D2(2,1 )=0. 982554 

C  PRINT  SECOND  STAGE  TRANSFER  FUNCTION 

WRITE(4,82)N2(2,3 ),N2(2,2),N2(2, 1 ),D2(2, 3 ),D2(2,2),D2(2, 1  ) 


S2200220 

S2200230 

S2200240 

S2200250 

S2200260 

S2200270 

S2200280 

S2200290 

S2200300 

S2200310 

S2200320 

S2200330 

S2200340 

S2200350 

S2200360 

S2200370 

S2200380 

S2200390 

S2200400 

S2200410 

S2200420 

S2200430 

S2200440 

/,S2200450 

S2200460 

S2200470 

S2200480 

S2200490 

S2200500 

S2200510 

S2200520 

S2200530 

S2200540 

S2200550 


FILE:  OBPFR 


FORTRAN  A1 


CALL  PAGE  (11.0,8.5) 

CALL  NOBROR 

CALL  AREA2D(9.0,6.5) 

C .  LABEL  THE  X  8e  Y  AXES 

CALL  XNAME( ' FREQUENCY  (HZ)$'.100) 

CALL  YNAME( ' PHASE  ( DEGREES)$' , 100) 

CALL  HEA01N( 'DIGITAL  ELLIPTIC  BPF  PHASE  RESPONSES' , 1 00, 1 . 6, 2 ) 
CALL  HEADIN( ' PHASE  (DEGREES)  VS  FREQ  ( F0=590  HZ ) $' , 1 00, 1 . , 2 ) 

C .  DEFINE  THE  AXES 

CALL  GRAF(0.0, 'SCALE', 1200. ,-100., 'SCALE', 1DD. ) 

C .  DRAW  THE  CURVES 

CALL  THKCRV(0.02) 

CALL  MARKER(15) 

CALL  CURVE( FREQ, HPHASE, 201,0) 

C .  TERMINATE  THIS  PLOT 

CALL  ENDPL(O) 

CALL  DONE PL 

STOP 

END 


0BP01110 
DBP01120 
DBP01 130 
DBP01140 
DBP01150 
DBP01160 
DBP01 170 
DBP01 180 
0BP01190 
DBP01200 
DBP01210 
DBP01220 
DBP01230 
OB PO 1240 
DBP01250 
DBP01260 
0BP01270 
DBP01280 
DBP01290 
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FILE:  DBPFR  FORTRAN  A1 

C  GRAPHICS  PARAMETERS  FOR  MAGNITUDE  VS  FREQUENCY  (IN  HZ)  DBP00560 


C -  DBP00570 

CALL  LRGBUF  0BP00580 

C  CALL  COMPRS  0BP00590 

CALL  TEK618  DBP00600 

C  CALL  VRSTEC(0.0,0)  DBP00610 

C  .  SETUP  THE  PLOTTING  AREA  0BP00620 

CALL  PAGE  (11.0,8.5)  DBP00630 

CALL  NOBRDR  DBP00640 

CALL  AREA20(9.0,6.5)  DBP00650 

C  .  LABEL  THE  X  &  Y  AXES  DBP00660 

CALL  XNAME( ' FREQUENCY  (HZ)$',100)  DBP00670 

CALL  YNAME( 'AMPLITUDES' . 100)  DBP00680 

CALL  HEADIN( 'DIGITAL  ELLIPTIC  BPF  FREQUENCY  RESPONSES ', 100, 1 . 6, 2 )  DBP00690 

CALL  HEAD  I N( 'NORMALIZED  AMPLITUDE  VS  FREQ  ( F0=590  HZ ) S' , 1 00, 1 . , 2 )  DBP00700 

C  .  DEFINE  THE  AXES  DBP00710 

CALL  GRAF(0.0, 'SCALE' , 1200. , -0.5, 'SCALE', 1 .5)  0BP00720 


C .  DRAW  THE  CURVES  DBP00730 


CALL  THKCRV(0.02)  DBP00740 

CALL  MARKER( 15)  DBP00750 

CALL  CURVE( FREQ, HMAGN, 201,0)  DBP00760 

C .  TERMINATE  THIS  PLOT  DBP00770 

CALL  ENDPL(O)  DBP00780 

C - - DBP00790 

C  GRAPHICS  PARAMETERS  FOR  MAGNITUDE  (IN  DB)  VS  FREQUENCY  (IN  HZ)  DBP00800 

C - - - - - - . DBP00810 

CALL  LRGBUF  DBP00820 

C  CALL  COMPRS  DBP00830 

CALL  TEK618  DBP00840 

C  CALL  VRSTEC(0,0,0)  DBP00850 

C  .  SETUP  THE  PLOTTING  AREA  DBP00860 

CALL  PAGE  (11.0,8.5)  0BP00870 

CALL  NOBRDR  DBP00880 

CALL  AREA20(9.0,6.5)  DBP00890 

C  .  LABEL  THE  X  &  Y  AXES  06200900 

CALL  XNAME( ' FREQUENCY  (HZ)S',100)  DBP00910 

CALL  YNAME( 'AMPLITUDE  (DB)S',100)  0BP00920 

CALL  HEADIN( 'DIGITAL  ELLIPTIC  BPF  FREQUENCY  RESPONSES ', 1 00, 1 . 6 , 2 )  DBP00930 

CALL  HEADIN( 'AMPLITUDE  (DB)  VS  FREQ  ( F0=590  HZ ) $' , 1 00, 1 . , 2 )  DBP00940 

C  .  DEFINE  THE  AXES  DBP00950 

CALL  GRAF(0.0, 'SCALE' , 1200. ,20.0, 'SCALE' , K  .0)  DBP00960 

C .  DRAW  THE  CURVES  DBP00970 

CALL  THKCRV(0.02)  DBP00980 

CALL  MARKER(15)  DBP00990 

CALL  CURVE( FREQ,HMAGOB,201,0)  DBP01000 

C .  TERMINATE  THIS  PLOT  DBP01010 

CALL  ENDPL(O)  DBP01020 

C - - - - . . . 0BP01030 

C  GRAPHICS  PARAMETERS  FOR  PHASE  VS  FREQUENCY  DBP01040 

C . . . . . DBP01050 

CALL  LRGBUF  OBP01060 

CALL  COMPRS  DBP01070 

C  CALL  TEK618  DBP01080 

C  CALL  VRSTEC( 0,0,0)  06P01090 

C  .  SETUP  THE  PLOTTING  AREA  DBPOIIOO 


ooooooooo 


FILE:  DBPFR  FORTRAN  A1 


c 

c 

APPENDIX  E 

*DBP00020 

*DBP00030 

c 

c 

FORTRAN  PROGRAM  DBPFR 

*0BP00040 

•DBP00050 

c 

c 

c 

PROGRAM  TO  PLOT  DIGITAL  BAND-PASS  FILTER  FREQUENCY  AND  PHASE 

*DBP00060 

*0BP00070 

*DBP00080 

c 

RESPONSE  OF  THE  ELLIPTIC  FILTER  TRANSFER  FUNCTION 

*0BP00090 

C  *DBP00100 

c 

TYPE  DECLARATIONS 

08 POO 120 

IMPLICIT  REAL(A-H,0-Z), INTEGER(  l-N) 

DBP00130 

REAL  OMEGA(201 ),HMAG(201 ),HPHAS£(201 ),HMAGN(201 ),HMAGDB(201 ) 

DBP00140 

REAL  F(201 ),FREQ(201 ) , FS, FSO 1 V2, TS 

DBP00150 

COMPLEX  Z.H 

DBP00160 

c 

NORMALIZED  TRANSFER  FUNCTION  COEFFICIENTS 

0BP00170 

AO  =  1  . 

DBP00180 

A1  =-3.6279 

DBP00190 

A2  =  5.2861 

DBP00200 

A3  =  A2 

DBP00210 

A4  =  A1 

DBP00220 

BO  =  1. 

DBP00230 

B1  =-3.6251 

OBP00240 

B2  =  5.2586 

DBP00250 

B3  =-3.5768  ' 

DBP00260 

B4  =  0.97353 

DBP00270 

c 

CONSTANTS 

DBP00280 

PI  =  3.1415927 

0BP00290 

FS  =  6.666E6/(4.*192. ) 

DBP00300 

TS=1 ./FS 

DBP00310 

FSDIV2  =  FS/2, 

DBP00320 

c 

EVALUATE  MAGNITUDE  AND  PHASE  OF  H( EXP( J*OMEGA*T ) ) 

DBP00330 

00  10  t  =  1,201 

DB POO 3 40 

F(  1  )  =  FLOAT(  1  -1  ) 

DBP00350 

FREQ( 1 )  =  6.*F( 1 ) 

DBP00360 

OMEGA(  1  )  =  (2.*PI.*FREQ(  1  )*TS) 

0BP00370 

.  Z  =  CMPLX(COS(OMEGA( 1 ) ),SIN(OMEGA( 1 ) ) ) 

DBP00380 

H  =  (A0+A1*Z*«(-1)+A2*Z**(-2)+A3*Z**(-3)+A4*Z**(-4))/(B0+ 

DBP00390 

&B1*Z**(  -1  )+B2*Z**(  -2)+B3*Z**(  -3)+B4*Z*-»(  -4)  ) 

DBP00400 

HMAG( 1 )  =  CABS(H) 

DBP00410 

X  =  REAL(H) 

DBP00420 

Y  =  AIMAG(H) 

DBP00430 

HPHASE( 1 )  =  ATAN(Y/X)*180./PI 

DBP00440 

10  CONTINUE 

DBP00450 

c 

NORMALIZE  MAGNITUDE 

DBP00460 

AMAX  =0.0 

DBP00470 

DO  20  1  =  1,201 

DBP00480 

1 F(HMAG( 1 ) .GT. AMAX)  AMAX  =  HMAG{ 1 ) 

DBP00490 

20  CONTINUE 

DBP00500 

DO  30  1  =  1,201 

DBP00510 

HMAGN( 1 )  =  HMAG( 1 )/AMAX 

DBP00520 

HMAG0B( 1 )  =  20.0  *  AL0G10( HMAG( 1 ) ) 

DBP00530 

30  CONTINUE 

0BP00540 

c- 

---  DBP00550 
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FILE;  S22F  FORTRAN  A^ 


C  WRirE(4,99) 

C  99  FORMAT(/,'  I  TIME  INI  0UT1=IN2  OUT2',// 

C  COMPUTE  SIMULATED  FILTER  RESPONSE  OVER  INDICATED  NUMBER  OF  SAMPLES  ( 

C  ADJUST  AS  NECESSARY 

DO  10  1=1,2048 

C  TX  =  TOTAL  ELAPSED  SAMPLE  TIME 
TX=T*FLOAT( I -1 ) 

C  INI  =  X1(1)  =  FILTER  FIRST  STAGE  INPUT  VALUE  (LIMITED  BY  S INMAG) 

XI ( 1 )=SINMAG*SIN(TWOPI F*TX) 

C  0UT1  =  Y1(1)  =  FIRST  STAGE  OUTPUT  =  IN2  =  X2(1)  =  SECOND  STAGE  INPUT 
Y1( 1 )=DN213( 3)*X1 ( 1 )+0N213(2)*X1(2)+DN213( 1 )*X1 (3)- 
Sc  DD213(2)*Y1(2)-DD213(  1  )*Y1(3) 

X2( 1 )=Y1 ( 1  ) 

C  0UT2  =  Y2(1)  =  SECOND  STAGE  OUTPUT  =  FILTER  OUTPUT 

Y2(  1 )=DN223(3)*X2( 1 )+DN223( 2 )*X2{ 2 ) +DN223(  1  )*X2( 3)- 
.  &  D0223(2)*Y2(2)-DD223( 1 )*Y2( 3) 

C  PRINT  PARAMETERS  FOR  EACH  SIMULATION  ITERATION 

C*******#**#**#*#* ******************* 


WRITE(4, 100) I ,TX,X1( 1 ),X2(  1 ),Y2(  1  ) 
100  FORMAT( IX, I4.2X,4( F10.3,2X) ) 

USE  THIS  OUTPUT  FORMAT  FOR  EASYPLOT  ROUTINE 
WRITE(4, 100)TX,X1 ( 1 ),Y2( 1 ) 

100  F0RMAT(1X.3(F15.8.2X)) 

C-H-H**-**********#*****#********#**#*## 


c 


c 


c 


REMEMBER  MAXIMUM  AMPLITUDE  IN  EACH  FREQUENCY  SIMULATION  TRIAL 
IF  (ABS(Y2( 1 ) )-M0UT)  11,11,14 

14  M0UT=ABS(Y2{ 1 ) ) 

I MOUT= I 

PERFORM  SIMULATION  SHIFT  DELAY 
11  DO  15  J=2,3,1 

Y1(5-J)=Y1(4-J) 

X1(5-J)=X1(4-J) 

Y2(5-J)=Y2(4-J) 

X2(5-J)=X2(4-.') 

15  CONTINUE 

10  CONTINUE 

PRINT  MAXIMUM  OUTPUT  AMPLITUDE  FOR  EACH  FREQUENCY  SIMULATION  RUN 
WRITE(4,89)M0UT, IMOUT 

89  FORMAT ( '  MAXIMUM  OUTPUT  AMPLITUDE  = 

Sc'  THIS  OCCURRED  AT  SIMULATION  ITERATION  ’,15,///) 

20  CONTINUE 
STOP 
END 


S2201110 
)  S2201120 
I )S2201130 
S2201140 
S2201150 
S220n60 
S2201 170 
S2201 180 
S2201190 
S2201200 
S2201210 
S2201220 
S22dl230 
S2201240 
S2201250 
S2201260 
S2201270 
S2201280 
S2201290 
S2201300 
S2201 310 
S2201320 
S2201330 
S2201340 
S2201350 
S2201360 
S2201370 
S2201380 
S2201390 
S2201400 
S2201410 
S2201420 
S2201430 
S2201440 
S2201450 
S2201460 
S2201470 
S2201480 
S2201490 
S2201500 
S2201510 
S2201520 
S2201530 
S2201540 
S2201550 


PROGRAM  S22F  OUTPUT 

FOURTH  ORDER  FILTER  FREQUENCY  RESPONSE 
(CASCADED  SECOND  ORDER  SECTIONS) 

FIRST  STAGE  TRANSFER  FUNCTION  (2920  EQUIVALENT) 

0.100000E+01  +  -0. 174988E+01  Z**-1  +  0.100159E+01  Z**-2 

0.100000E+01  +  -0. 181555E+01  Z**-1  +  0. 990601 E+00  Z**-2 

SECOND  STAGE  TRANSFER  FUNCTION  (2920  EQUIVALENT) 

0.100000E+01  +  -0. 187780E+01  Z**-1  +  0.998169E+00  Z**-2 

0.100000E+01  +  -0. 180945E+01  Z**-1  +  0.982544E+00  Z**'2 


SCALE  FACTORS  AND  INPUT  MAGNITUDE  LIMIT 

FIRST  STAGE  SCALE  SUM  =  0. 755761 E+01 

SECOND  STAGE  SCALE  SUM  =  0.766796E+01 

INPUT  AMPLITUDE  LIMITED  TO  +/-  0.172558E-01 
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FILTER  FREQUENCY  RESPONSE  FOR  F  =  500.  HZ 

MAXIMUM  OUTPUT  AMPLITUDE  =  0.10085225 

THIS  OCCURRED  AT  SIMULATION  ITERATION  181 

FILTER  FREQUENCY  RESPONSE  FOR  F  =  575.  HZ 

MAXIMUM  OUTPUT  AMPLITUDE  =  1.59343243 

THIS  OCCURRED  AT  SIMULATION  ITERATION  515 

FILTER  FREQUENCY  RESPONSE  FOR  F  =  591.  HZ 

MAXIMUM  OUTPUT  AMPLITUDE  =  1.62147427 

THIS  OCCURRED  AT  SIMULATION  ITERATION  50i 

FILTER  FREQUENCY  RESPONSE  FOR  F  =  600.  HZ 

MAXIMUM  OUTPUT  AMPLITUDE  =  0.89969766 

THIS  OCCURRED  AT  SIMULATION  ITERATION  284 

FILTER  FREQUENCY  RESPONSE  FOR  F  =  625.  HZ 

MAXIMUM  OUTPUT  AMPLITUDE  =  0.30743510 

THIS  OCCURRED  AT  SIMULATION  ITERATION  135 

FILTER  FREQUENCY  RESPONSE  FOR  F  =  700.  HZ 

MAXIMUM  OUTPUT  AMPLITUDE  =  0.07697707 

THIS  OCCURRED  AT  SIMULATION  ITERATION  15' 


oooooooo  o  o o o o o o o o o o o o o o o o 


FILE:  S22FG 


FORTRAN  A1 


C****'***************#**'tnnnt*')nnf**'H-»***#*****#******'tf****************#*-»*5220001 0 


*52200020 

THIS  PROGRAM  SIMULATES  THE  EXECUTION  OF  A  2920  PROGRAM  *S2200030 

FOR  A  600  HZ  BANDPASS  FILTER  TRANSFER  FUNCTION  WHICH  IS  THE  *$2200040 

PRODUCT  OF  TWO  SECOND  ORDER  FILTER  SECTIONS  *32200050 

*$2200060 

Y(Z)  DN213(Z)  0N223(Z)  *$2200070 

H(Z)  - - - - X -  *52200080 

X(Z)  DD213(Z)  D0223(Z)  *52200090 

*52200100 

THE  SIMULATION  IS  PERFORMED  OVER  A  RANGE  OF  DIFFERENT  INPUT  *52200110 

FREQUENCIES  ABOUT  THE  TARGET  CENTER  FREQUENCY  OF  600  HZ.  *32200120 

AFTER  SIMULATION  THE  FREQUENCY  RESPONSE  IS  PLOTTED  FOR  *52200130 

GRAPHICAL  REVIEW.  *52200140 

*52200150 

•*********'if*****-innt**#*******#**innn************#**'****************#****522001 60 
VARIABLE  DECLARATIONS  32200170 

INTEGER  IMOUT  32200180 

REALTX.F(9)  S2200190 

REAL  NUM( 1024)  S2200200 

REAL  IN(1024)  S2200210 

REAL  OUT( 1024)  S2200220 

REAL  X1(3),X2(3),Y1(3),Y2(3)  S2200230 

REAL  SCALS1,SCALS2,SINMAG,M0UT  S2200240 

REAL  DN213(3).DD213(3),DN223(3), 00223(3), T, PI, TWOPIF  S2200250 

INPUT  FREQUENCIES  S2200260 

F( 1 )=700  S2200270 

F(2)=  S2200280 

F{3)=  S2200290 

F(4)=  S2200300 

F(5)=  S2200310 

F(6)=  S2200320 

F(7)=  S2200330 

F(8)=  S2200340 

F(9)=  S2200350 

WRITE(4,80)  S2200360 

80  FORMAT( ' FOURTH  ORDER  FILTER  FREQUENCY  RESPONSE',/,  32200370 

&'  (CASCADED  SECOND  ORDER  SECTIONS)',//)  S2200380 

C  FIRST  SECOND  ORDER  STAGE  COEFFICIENTS  S2200390 

DN213(3)=1.  S2200400 

DN213(2)=!-1 .749875  S2200410 

DN213( 1 )=1 .001585  S2200420 

DD213(3)=1.  S2200430 

0D213(2)=-1 .81555  S2200440 

D0213( 1 )=0. 990601  S2200450 

C  PRINT  FIRST  STAGE  TRANSFER  FUNCTION  S2200460 

WRITE(4,81 )DN213( 3 ),0N213(2),0N213( 1 ) , DD21 3 ( 3 ) , DD21 3 ( 2 ) , DD21 3 ( 1 )  S2200470 

81  FORMAT( ' FIRST  STAGE  TRANSFER  FUNCTION  (2920  EQUIVALENT)',//,  S2200480 

&E14.6,'  +  ',E14.6,'  Z**-1  +  ',E14.6,'  Z**-2',/,  S2200490 

8e'  — - ',/,S2200500 

&E14.6,'  +  ',E14.6,'  Z**-1  +  ',E14.6,'  Z**-2',///)  S2200510 

C  SECOND  SECOND  ORDER  STAGE  COEFFICIENTS  S2200520 

0N223(3)=1.  S2200530 

DN223 ( 2 )=-1 .877805  S2200540 

0N223( 1 )=0, 998169  S2200550 


FILE:  S22FG 


FORTRAN  A1 


D0223{3)=1. 

00223 ( 2 )=-1 .809446 
00223 ( 1 >=0.982544 

C  PRINT  SECOND  STAGE  TRANSFER  FUNCTION 

WR I TE( 4. 82 ) DN223 ( 3 ) . DN223 ( 2 ) , 0N223 ( 1) . 00223 ( 3 ) . 00223 ( 2 ) , 00223 ( 
82  FORMAT ( 'SECOND  STAGE  TRANSFER  FUNCTION  (2920  EQUIVALENT)',//, 
&E14.6.'  +  ',E14.6,'  2**-1  +  '.E14.6,'  Z**-2',/, 

41  - 

S:E14.6,'  +  '.E14.6,'  Z**-1  +  ',E14.6,'  Z**-2',///) 
c  initialize  variables 

Pl=3. 1415927 
SCALS1=0. 

SCALS2=0. 

C  SAMPLE  PERIOD  =  T  =  1.1521152  X  10**-4  SECONDS 
T=4.*192./6.666E6 

C  COMPUTE  SCALE  SUM  FOR  STAGES  TO  LIMIT  INPUT  AMPLITUDE 
DO  6  K=1.3 

SCALS1=SCALS1+A8S(0N213(K) ) 

SCALS1=SCALS1+ABS(00213( K) ) 

SCALS2=SCALS2+ABS( DN223(  K ) ) 

SCALS2=SCALS2+ABS(  00223 (  K) ) 

6  CONTINUE 

C  ENSURE  SCALE  SUM  FACTORS  WILL  LIMIT  OUTPUT  TO  LESS  THAN  ONE 
SCALS1  =  SCALS1+1  .E-6 
SCALS2=SCALS2+1  .  E-6 

C  COMPUTE  SIMULATED  INPUT  MAGNITUDE  LIMIT 
SINMAG=1 ./(SCALS1*SCALS2) 

C  PRINT  STAGE  SCALE  SUMS  AND  INPUT  MAGNITUDE  LIMIT 
WR I TE{ 4, 85 ) SCALS1 , SCALS2. S I NMAG 
85  FORMAT(//, 'SCALE  FACTORS  AND  INPUT  MAGNITUDE  LIMIT',//, 

St' FIRST  STAGE  SCALE  SUM  =  ',E14.6,/, 

&' SECOND  STAGE  SCALE  SUM  =  ',E14.6,/, 

&' INPUT  AMPLITUDE  LIMITED  TO  +/-  ',E14.6,///) 

C  BEGIN  SIMULATION  FOR  SPECIFIED  FREQUENCIES  GIVEN  BY  F(L) 

C******************************** 

C  ADJUST  AS  NECESSARY 
DO  20  Lt1,1 

C******************************** 

C  COMPUTE  SIMULATION  RUN  INPUT  CONSTANT  FOR  EACH  FREQUENCY 
TWOPI F=2.*PI*F(L) 

C  INITIALIZE  STAGE  INPUTS  AND  OUTPUTS 
IMOUT=0 
MOUT=0. 

DO  5  1=1,3 
XI ( I )=0. 

X2( I )=0. 

Y1( I )=0. 

Y2( I )=0. 

5  CONTINUE 

C  PRINT  SIMULATION  HEADINGS 


S2200560 
S2200570 
S2200580 
S2200590 
1  )  S2200600 

S2200610 
S2200620 
'  ,/,S2200630 
S2200640 
S2200650 
S2200660 
S2200670 
S2200680 
S2200690 
S2200700 
S2200710 
S2200720 
S2200730 
S2200740 
S2200750 
S2200760 
S22  10770 
S2200780 
S2200790 
S2200800 
S2200810 
S2200820 
S2200830 
S2200840 
S2200850 
S2200860 
S2200870 
S2200880 
S2200890 
S2200900 
S2200910 
S2200920 
S2200930 
S2200940 
S2200950 
S2200960 
S2200970 
S2200980 
S2200990 
S2201000 
S2201010 
S2201020 
S2201030 
S2201040 
S2201050 


WRITE(4,98)F(  L)  S2201060 

98  FORMAT!///, ' FI LTER  FREQUENCY  RESPONSE  FOR  F  =  ',F5.0,'  HZ',//)  S2201070 

WRITE(4,99)  S2201080 

99  FORMAT!/,'  I  TIME  INI  0UT1=1N2  0UT2',//)  S2201090 

C  COMPUTE  SIMULATED  FILTER  RESPONSE  OVER  INDICATED  NUMBER  OF  SAMPLES  !l)S220n00 


182 


FILE:  S22FG 


FORTRAN  A1 


C  ADJUST  AS  NECESSARY 

DO  10  1=1,1024 

-(f** 

C  TX  =  TOTAL  ELAPSED  SAMPLE  TIME 
TX=T*FLOAT( I -1 ) 

C  INI  =  X1(1)  =  FILTER  FIRST  STAGE  INPUT  VALUE  (LIMITED  BY  SINMAG) 

XI ( 1 )=SINMAG*SIN(TWOPIF*TX) 

NUM( I )=FLOAT( 1 ) 

IN( 1)=X1(1) 

C  OUT1  =  Y1(1)  =  FIRST  STAGE  OUTPUT  =  IN2  =  X2(1)  =  SECOND  STAGE  INPUT 
Y1(1  )=0N213(3)*X1(1 )+DN213(2)*X1(2)+DN213( 1 )*X1(3)- 
&  0D213(2)*Y1(2)-0D213( 1 )*Y1(3) 

X2(1)=Y1(1) 

C  0UT2  =  Y2(1)  =  SECOND  STAGE  OUTPUT  =  FILTER  OUTPUT 

Y2(1 )=DN223(3)*X2( 1 )+ON223( 2 )*X2( 2 )+DN223 ( 1 )*X2(3)- 
&  0D223(2)*Y2(2)-0D223(1)*Y2(3) 

OUT( I )=Y2( 1 ) 

C  p'RINT  parameters  for  each  SIMULATION  ITERATION 
(;*•»■»■»•***■****•*#*•»**•»*•»•********#*#**#** 

C  WRITE(4.100) I ,TX.X1( 1 ),X2(1 ),Y2( 1 ) 

C  100  FORMATf IX. I4,2X,4( F10.3.2X)) 

C  USE  THIS  OUTPUT  FORMAT  FOR  EASYPLOT  ROUTINE 
C  WRITE(4, 100)TX.X1( 1 ),Y2( 1 ) 

C  100  FORMAT(1X,3(F15.8,2X)) 

C********************#****-*********** 

C  REMEMBER  MAXIMUM  AMPLITUDE  IN  EACH  FREQUENCY  SIMULATION  TRIAL 
IF  (ABS(Y2(1 ) )-MOUT)  11,11,14 

14  MOUT=ABS(Y2( 1 ) ) 

IMOUT=l 

C  PERFORM  SIMULATION  SHIFT  DELAY 
11  00  15  J=2.3,1 

Y1(5-J)=Y1(4-J) 

X1(5-J)=X1(4-J) 

Y2(5'J)=Y2(4-J) 

X2(5-J)=X2(4-J) 

15  CONTINUE 
10  CONTINUE 

C  PRINT  MAXIMUM  OUTPUT  AMPLITUDE  FOR  EACH  FREQUENCY  SIMULATION  RUN 
WRITE(4,89)F(L),MOUT, IMOUT 

89  FORMAT ( '  MAXIMUM  OUTPUT  AMPLITUDE  FOR  ',F5.0,'  HZ  =  ',F15.8,/, 
8e'  THIS  OCCURRED  AT  SIMULATION  ITERATION  ’,15) 

20  CONTINUE 


C  GRAPHICS  PARAMETERS  FOR  FREQUENCY  RESPONSE  OUTPUT  VS  INPUT 


C - - - 

CALL  LRGBUF 
C  CALL  TEK618 
CALL  COMPRS 

C  .  SETUP  THE  PLOTTING  AREA 

CALL  PAGE  (11.0,8.5) 

CALL  NOBROR 

CALL  AREA20(9.0,6.5) 

C  .  LABEL  THE  X  &  Y  AXES 

CALL  XNAME( ' ITERATION  (N)  $’,100) 


S2201110 
S2201120 
S2201130 
32201140 
S2201 150 
S2201 160 
S2201 170 
S2201 180 
S2201190 
S2201200 
S2201210 
S2201220 
S2201230 
S2201240 
S2201250 
S2201260 
S2201270 
S2201280 
S2201290 
S2201300 
S2201310 
S2201320 
S2201330 
S2201340 
S2201350 
S2201360 
S2201370 
S2201380 
S2201390 
S2201400 
S2201410 
S2201420 
S2201430 
S2201440 
S2201450 
S2201460 
S2201470 
S2201460 
S2201490 
32201500 
S2201510 
S2201520 
32201530 
32201540 
32201550 
32201560 
32201570 
32201580 
32201590 
32201600 
32201610 
32201620 
32201630 
32201640 
32201650 
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FILE:  S22FG 


FORTRAN  A1 


CALL  YNAME( 'MAGNITUDES' . 100) 

CALL  HEADIN  ('DIGITAL  FILTER  FREQUENCY  RESPONSES' , 1 00, 1 . 6, 3 ) 
CALL  HEADIN  ('SIMULATION  INPUT/OUTPUT  VS  I TERAT I ONS' , 1 00. 1 . , 3 ) 
CALL  HEADIN  ('FREQUENCY  =  700  HZS' . 100, 1 . , 3  ) 

C  .  DEFINE  THE  AXES 

CALL  GRAF(0. .64. , 1024. , -2 . 0, . 5, 2. 0 ) 

C .  DRAW  THE  INPUT  CURVE 

CALL  THKCRV(0.01 ) 

CALL  MARKER(15) 

CALL  CURVE(NUM. IN. 1024,0) 

C .  DRAW  THE  OUTPUT  CURVE 

CALL  THKCRV(0.01  ) 

CALL  MARKER(15) 

CALL  CURVE(NUM. OUT, 1024.0) 

C .  TERMINATE  THIS  PLOT 

CALL  ENDPL(O) 

CALL  DONEPL 

STOP 

END 


S2201660 

S2201670 

S2201680 

S2201690 

S2201700 

S2201710 

S2201720 

S2201730 

S2201740 

S2201750 

S2201760 

S2201770 

S2201780 

S2201790 

S2201800 

S2201810 

S2201820 

S2201830 

S2201840 


184 


niGITfll.  riLTfR  FRfniOCY  RESPONSE 

SI  mu  AT  I  ON  lt4PUT/fUiTmT  vs  ITllRHTIUN 
I'KrOdCNCt  -  500  H2 


o 

i-  o 


o 


♦  -  7  I  I  I  I - !  I  “1  I  ’  1  I  “  1  — r  I  I  I 

U.o  61.0  U0.Q  lU^.O  j'.A.O  ^..'U.a  lat.Q  Ild.O  SU.Q  S76.0  6iu.O  /U1.0  7ui.|]  6‘Jb.O  tfbU.O 

IVCKliriflM  INI 


niGITfll.  ni.TER  rREOUENCY  RESPONSE 

blMDlttflUN  INPlIf/OliTI'llT  VS  ITr.ROriON 

rKLUiit:Ni;»  -  S7b  tu 


nihdriOH  INI 


185 


fIflSMTUDE 


niGITRL  FILTER  FREnilENGY  RESPONSE 

SlntUririOH  iHPUT/lMiTHir  Vs  ITERHTION 
rKEUCMCI  -  625  HZ 


“  I  “  ,-j  —  -1.,^..  >1  I  I  .  ^  I  I  ,  -  ,  I  I  I  I 

hi  d  ua.Q  i%i.Q  2U..0  IJU.D  3b1.0  iid.Q  t>l2.0  S7b.O  blU.O  7U4.0  7t>a.O  H'ii.ti  Stib.O  ftbO  O  1021.0 

IlfKIlflflM  (Nl 


niGITRl.  E II. TER  EREnilENCY  RESPONSE 

bininMTirin  iNPiiT/mnt'iir  vs  itcrhudh 

rKfllllfMCt  -  /OU  HZ 


CD 


-■'''AAAAAAAAAWW\AAAAAMApawv>ww<«<«"Ww«»i~>/«. 


ISIS-II  £'?£V?  i=!SS£r'®L£P  U1.0 

IN-^i^'ET!  EV;  «':£■?££'  ?T‘''2K4 


line  LCC  object  SOLPCE  ETPTZr'EI^ 


1 

PPPElCsIX  H 

£8£0  P‘38:EI’^ELV  LPM3U=‘i3E  PFCi3:'8»‘’  3r'8/  c 

: 

400  uz  nn-^rrp  fPEOtJEt€V  If!fT -FF-Sz  FIL'^E?' 

■ 

FOLPTM  ncEEF;  ELLIPTIC  FILTEP: 

PiJTViIP!  LT  P.  t-L  JOPEPN 

9 

9 

CLEPP  IPP  FEGISTEP 

10 

0  40'C€EE 

Ll!P  WF'jkPO 

1  1 

!£ 

INPUT  FNFLCG  OR-IFLE  ’’0  OPNPLE^  HILE 

13 

lUFUT  MJ8T  S£  LES3  THPN  1.0  ‘.10LT8 

14 

1  OiyyOEE 

IN0 

15 

£  OOOOEr 

IN0 

1€ 

3  0OO6€F 

IN0 

1? 

4  O(5O0EF 

!N0 

IS 

^  400r'CF 

rop 

19 

^  4ir^30£F 

N3P 

30 

7  4000EF 

r-cp 

£1 

33 

BEGIN  FT'FLCG  to  BIGITPL  i3Ct'..'EF8Ii3t'J 

^  w 

EIGITPL  3PhPLE  WILL  FEEIIE  IN  IPP  PEGI'ETpC' 

£4 

S  eOGOEF 

n'TC; 

C-er 

'?  4(?00'EF 

MOP* 

£S 

10*  4O0OEF 

MOP 

37 

11  4oeeeF 

MOB 

£0 

1£  710CEF 

OUT? 

£9 

13  40100GF 

MOP 

30 

'^000'EF 

MOP 

31 

15  4000GF 

rcp 

•^<-1 

•■c 

li£  tUCOEF 

CUT8 

:*i3 

17  4000EF 

MOP 

34 

18  4000EF 

WP 

t'C 

18  400eGF 

MOP 

3^ 

£0  5100GF 

n.'T^ 

£1  400e€F 

r'cip* 

33 

££  4000EF 

r<'P 

3*^ 

£3'  4000€F 

MOP 

ac 

£4  4100eF 

ruT4 

41 

£5  4000EF 

rcip 

43 

£8  ■iOOOEF 

rup 

43 

£7  4(i1ilg£F 

MOP 

44 

£8  3100EF 

n.'TT' 

4^ 

£8  4Hy0CF 

M3'P’ 

44 

30  40i3'0EF 

MOP 

47 

"1  4iri0f'EP 

rUP 

43 

38  £100EF 

OUT£ 

49 

33  400t£F 

MOP 

50 

34  4000EF 

rcp 

51 

£5  4V300EF 

MO'P 

ff 

38  1  1Ch3CF 

rt:Tl 

188 


1 1  £920  f=€2£htBL£P  Ul.C 


pc^rir 


IS- 


LIHE  LOC.  DEJECT  SOLPilE  STfiTEf-^r^ 


97 

4f^^'^EF 

WP 

§4 

■I"? 

400 6€F 

rcp 

cs:e; 

39 

400 0EF 

MOP 

§6 

4D 

0100GF 

|?.'T0 

57 

•ii 

4000EF 

WP 

ts.Zt 

4£ 

40*0  0EF 

WP 

<r.i 

43 

400 0EF 

n:*p 

€1 

1? 

-14 

4 

4 

406  6|=!E 

SCPLE  DOl't'  DIGITPL  irf'L'T  P 
LDP  rpp?IPP.F06 

t4 

45 

40£cEF 

LCPD  6CPLEr  IMFUT  FF'OiM  DPF' 
LIP  '  'll'rPP 

66 

S  7 
SS 

46 

40SEFF 

IMITIPLI2E  ■■•■11 

LC^P  ■■ai.KPP 

7D 

4 

4 

FEFFOPM  FIF6'T  OTPiOE  DIFFEP-B-'iOE  EOLPTOM  OOr’F'i 'TPTt 

71 

• 

4 

4 

4 

■■*'■1  l=Mr-*Xl  1-M1E*X124M1  l'*X13-*-Dli*'’'"i£-f'l 

4 

■ai=Mi3»xii 

74 

T«r 

4 

4 

4 

4 

'Ml'2=l  .006000) 

7^ 

47 

4400EF 

LDP  FPDjXII 

)'  )' 

4 

4 

*'  '2 

79 

4J? 

4a:i0FD 

4 

4 

PED  ■■.■■11»FPD 

l-'fi 

4 

■’•■ll»^'f'll-MllE«X12 

si 

O'i' 

'Ml£*l  .?4’?07^;i 

49 

4606EF 

LDP  cv-»0 

S4 

50 

460600 

PDD  FPr,yi£,P0i 

S5 

51 

4601 '*41. 

PE D  FF'D?Xlc.?F0i'6! 

S6 

*!'3 

460’66C 

PEl!  PPI"’  XI L?  F0^4 

>•'7 

BT-^- 

460600 

PDD  FPD-XISjFv:-!? 

SS 

54 

4e0''rPi, 

PDD  PF'rjXl£.'>F06 

§•21 

W 

460'*6^'- 0" 

PDD  FF'D!'  XI  c!^  F0^7 

90 

56 

4606GO 

PDD  FPD-XIE.FOS 

91 

4 60 66  D 

PDD  FFD,  Xlc'jFi:-'-? 

9£ 

eo 

4606'£D 

PDD  FPDyXlc'PlP 

93 

59 

4 60 6-4 D 

^DD  FPD*.X1£.P11 

94 

66' 

460^66  D 

PD D  FP D*  I'-l  £.  F  I  £ 

95 

61 

460!  66-1' 

PDD  FPD,X1£,P1-? 

96 

■37 

6c 

4c00FP 

■ziJS  ■Oll-FFD 

■3*3 

! 

’rl  l  =  '''l  I*;-’!  3 

100 

s 

iNH  =t  =:;:'=-i 

101 

- 

10c 

6  3' 

400' 0EF 

LE^  P  FF'  D  •  1  £  ?  FO*  0 

103 

64 

4O0O’cr 

PDD  FPD-;-a'!:.PlP 

104 

4 00' 041' 

PDD  FPD.Xl  ?.F1  1 

105 

106 

66 

4O'00'::'I' 

F'DD  FPD.XIO.PI'? 

ISIS-II  £•?££’  FSiiEriELER  I'l.t? 


cc,-;r 


LIME  LOG  OBJECT  SOURCE  STfiTEr'CrT 


107 

87 

480 0FD 

POD  VIIjFPD 

108 

108 

Y1 1=V11+D18»Y1£ 

110 

CD  18=1. 8 1555 

0'( 

111 

ns 

88 

4C08Er 

LOP  FPD'Yl 

8?  F00 

113 

89 

4rf’':='0i' 

PDD  FPDjYI 

si  F0 1 

114 

70 

4D388C 

PDD  PPDi>Yl 

£«  F0(8 

115 

71 

4C0:38C 

POO  FPDjYI 

£»F04 

118 

72 

4(30800 

PDD  FPO.YI 

£j  F09 

117 

4(30880 

PDD  FPDjVI 

£•.810 

118 

74 

4(30850 

PDD  FPD1.YI 

£jP13 

i  X  . 
180 

75 

4a?efr 

< 

PDD  Y11,FPD 

181 

• 

(l 

188 

Y1 1=Y1  l-n  i:« 

V'l  3 

183 

• 

CD  11=0. 98580  !'( 

184 

185 

78- 

4E000E 

LI'P  !=PD»Y1 

3?  F0 1 

188 

4E008(; 

PDD  FPD'Yl 

3?  F08 

187 

7:? 

4E004(3 

PDD  FPE1.YI 

3i-  F03 

188 

79 

4  E0 08.(3 

PDD  FPD>Y1 

3t  F04 

189 

4E0i08'(3' 

PDD  FPDjYI 

3<  F05 

130 

4E00l5i3 

PDD  FPDjYI 

3«  F08 

131 

■fi:! 

4E0G€C 

PDD  FPDjYI 

3y  F08 

138 

4E000D 

PDD  FPDjYI 

3*  F09 

133 

4E008.D 

PDD  FPD»Y1 

3.P18 

134 

i  ;T'  5 

;5C 

4E008O 

PDD  FPD^Yl 

3- PI  3 

138 

1 37 

iz'iz 

480i£fE 

■iUE  yii,fpd 

138 

• 

IMITIPLIZE  Y 

£1 

139 

‘“7* 

4498FF 

LliP  Y£1jKP0 

140 

141 

FEFFGPM  •3E(3GMIi  8T^ 

148 

• 

4 

'/£l=r83»Yl  l-r€8*Yl 

143 

4 

144 

V81=rc83»'''T  1 

145 

4 

4 

CM  83=1 . 0n30v300i) 

148 

; 

147 

440 8EF 

LDP  FPD1.YII 

148 

4 

4 

149 

481 0FO 

*DD  Y8  IjFPD 

150 

; 

15! 

Y£l=V8l-r<£'8» 

'1^1^ 

158 

; 

'M8£=l. 87750 

153 

4 

i5'i 

44S13EF 

LIP  FPr>:-£ 

£•  F'?0 

155 

■?i 

44£0Gl(3 

PDD  FPD^Y88?F01 

158 

Q£ 

44£(.3'£l3 

PDD  FPD.  Y88.  F08 

157 

44804(3: 

hs  r  p^'  r  '  s  £  5  F^i  9 

158 

94 

448000 

I’  FP  r>  ! -  c!  £  ?  F^"*  9 

159 

9«5 

448f40 

PDD  CC'DOIS 

£•  F’l  1 

ItG’ 

4 48 08  0 

PDD  FPD.:8 

£•  Fl  £ 

:nrrtpi.iTOTTrN 


190 


SIS-n  2'?£e  l=!S:^EMEL£P  '11.0 


LINE 

LCC 

OBJECT  ;3dlpi:e  CTRTEr^irrr 

161 

97 

44202D 

rao  !=t?r!.1^2£,P13 

16£ 

• 

163 

92 

461 0FB 

21JE  V21,FPr 

16^ 

• 

4 

16? 

4 

■T£l=\-'£l+r-ei!«1V£3 

166 

167 

; 

!'N£l=0.9'?;?ie9i 

16  *3 

99 

442:30  E 

LTP  F2E»:-£2. 901 
9DD  PPD>:»23»P0£ 

16'3 

1100 

44£;32C 

170 

101 

44224C 

900  F2l!>  ;2£»  F03 

171 

102 

44£:36.i' 

900  FPOi  ;>23»  F04 

172 

103 

44£:3:2C 

900  FF'Oi'  123!?  FC'? 

173 

104 

44£Siic 

900  FPO»;k£3?F06 

174 

105 

44£:a::i' 

900  FPE)  .•■23»  F07 

175 

106 

44£:3Ei: 

900  FPO»  :k23?  F0’:3 

176 

107 

442200 

900  PPO»:'23>F09 

177 

17;3 

102 

442 2«D 

900  Ff'O- >23»  F’l  3 

179 

4610FE 

900  V21,FFO 

120 

; 

1*2  i 

<• 

V21=V21-  re£»'.-2£ 

122 

1  go 

• 

!l!££=l  .209446.;i 

124 

110 

4620EF 

LliP  FPE:.V'££»F0e 

125 

111 

462C0C 

90  0  FP  0  9  V22  ?  F'Zi  1 

126 

112 

46202C 

900  FPO«  y2£?F0£ 

127 

113 

462e«5C 

900  FPO?'f22jF05 

192 

114 

462C0C 

900  FPO>'t2£>F06 

1 1 J  'Si 

115 

4620::i:: 

900'  FP'O?  Vc'E’.' F07 

19 

116 

4620EC 

00' O'  FP'O*!*  ’fc'E'  FPi2 

191 

117 

46204 D 

900  f:pr!,V22'Fli 

19£ 

112 

462016  D 

900  FPE,'r2£,P12 

193 

119 

462051! 

900  FPD''y‘££>P13 

194 

■ 

4 

195 

120 

900  '•■2li>FPD 

l'^6 

; 

197 

• 

'r2l=''21-D£l!*y£2 

192 

* 

|■021=^':'.922544:l 

199 

4 

200 

121 

46220E 

LO'9  FPO'’  '  F0'  1 

201 

122 

46222C 

900  FPI>  ••■£3,  F03 

202 

123 

4 62 24 C 

900  FPD:.V23*F03 

£03 

124 

4616  6’6  C 

90:0'  FF' O’?  V22  !•  Fv4 

204 

125 

46222C 

900  FPO?  'i23.  F0? 

£lJ5 

126 

4622rC 

900  F^'O'  '  :''23’*  F07 

206 

127 

4622EC 

900  FPO.'v£3.F02' 

207 

122 

4 62 20' D 

900  FPO? 'f23>  F0'? 

20'2 

129 

462221! 

900  FP0?'i23>F'13 

209 

: 

£10 

211 

212 

1 3’0 

4610FE 

■3t'B'  VSl.FPO 

• 

4 

L090  'I'cl  ir-fTO  OPF 

213 

1 2 1 

Lr'9  r9p.'i21.F00 

214 

: 

191 


ftD'ftl58  968 


UNCLASSIFIED 


A  HATCHED  FILTER  ALQORITHH  FOR  ACOUSTIC  SIGNAL 
DETECTION(U)  NAVAL  POSTGRADUATE  SCHOOL  NONTEREV  CA 
D  H  JORDAN  JUN  85 

F/Q  17/1 


IS- 1 1  i=!S:^MELEP  '  -'1.0 


LIISE  LOG  OBJECT  .■3DI.RGE  S71fl7ErCr<T 

£l?i  !  MJLTIPLY  OLTFIJT  V;‘  f=*  FPCTOP  'IT  <» 

£16  i3£  4e66flr  UP  DfiP.  wp.  tea 

£1?  133  400CeF  MOP 

£13  134  400e£F  MOP 

£13  135  400G€F  WP 

££0  1:36.  400@er  MOP 

££i  137  400eep  rop 

£££  i:33  400i3eF  TOP 

£23  ! 

££4  ;  lajTPl.T  '.'ft-LE  IN  BftP  TO  CHfiWEL  0 

££5  139  8000EF  aiTO 

££6  140  300PEF  OJTO 

■££7  141  300eeF  GOTO 

£29  142  300e€F  GUTO 

£29  ? 

230  s  :EEPIfl.  PEGISTEP  SHIFT  FOP  lEIT  PF0i3?fiN  PPS 

£31  143  466eFF  LKR  V£3j'vE£jPee 

£32  144  4E49eF  LDP  ‘t££jV21jR00 

233  14?  4C1SEF  UP  Y13'-Y12jR00 

£34  146  401I5FF  UP  Yl£jYll,Pe0 

£35  147  406erF  UP  ,••23!- ;:22..  R00 

£36  143  4043EF  UP  :«S25Y1  IjRSiO 

£37  149  4£19£F  UP  Yl:3» Xl£.. P00 

£39  150  4400FF  UP  .Y12»X1 15P00 

239  151  400eEF  MOP 

£40  152  4000€F  MOP 

£41  153  400e€F  MOP 

£4£  1.54  400e€F  MOP 

£43  155  4000EF  MOP 

£44  156  400G€F  MOP 

£45  157  4000eF  MOP 

£46  1  58  400P£F  WP 

£47  159  400^F  rOP 

249  160  400€€F  MOP 

£49  161  400eeF  r<?P 

£50  162  4000EF  r€P 

£51  163  4000EF  rCiP 

£52  164  4000eF  MOP 

£53  16-5  4e0G€F  MOP 

£54  166  4000EF  MOP 

£55  167  4000EF  WP 

£56  169  4000eF  rCP 

£57  169  4000eF  MOP 

£59  170  4000EF  MOP 

£59  171  400GeF  rC'P 

£60  17£  400e€F  rOP 

£61  173'  4000EF  MOP 

£62  174  400GCF  TCP 

£63  175  40e0EF  MOP 

£64  176  4000EF  NC'P 

£65  177  400e€F  tC'P 

£6.6  173  4000EF  TOP 

£67  179  4000EF  MOP 

£68  l£0  4000EF  TOiP 


ISIS- I I 

£9£0  ASSEMBLER  U1.0 

LINE 

LOG  QB.IECT 

SOLPCE  STlflTEfCNT 

£69 

181  4000Er 

NOP 

£70 

18£  4000Er 

r«p 

£71 

183  400eEF 

NOP 

.  £7£ 

184  4000EF 

WP 

£73 

18-5  4000Er 

NOP 

£74 

186  4000EF 

h«P 

£75 

187  4000EF 

NOP 

£76 

c!r'  r' 

;  Twis  IS 

TNE  FIWL  POLP  I^STRLCTICN  3EGr^NT 

£7S 

188  500eEF 

EDP 

£79 

189  4eeC€F 

NOP 

£80 

190  4000EF 

lOP 

£81 

191  400e€F 

rcp 

£8£ 

ET'C 

SVNIOL; 

UPLLEs 

XU 

0 

YU 

1 

PPE 

£ 

Xl£ 

X13 

4 

V 12 

e: 

Y13 

if 

Y21 

I? 

Xc2 

X£3 

9 

V2£ 

10 

'-'•SO 

1 

11 

PSSENa.'-! 

■'  CCt^LETE 

EFPOPS 

=  0 

wpfNircs 

i  =  0 

RI=NSIZE 

=  1£ 

ri>si::e 

=  19£ 

ooooooooo 


FILE:  CTRANS2  FORTRAN  A1 


♦CTR00020 
*CTR00030 
*CTR00040 
*CTR00050 
*CTR00060 
•CTR00070 
*CTR00080 
*CTR00090 
*CTR00100 


c 

VARIABLE  DECLARATIONS 

CTR00120 

REAL  N2 ( 2 . 3 ) , D2 ( 2 , 3 ) . N2TX . D2TX, TR 1 AL, TWOVAL, FKM1 

CTR00130 

REAL  N2B(2,3),D2B(2,3),N2P(2,3),D2P(2,3) 

CTR00140 

INTEGER  N2T(2.3,14).D2T(2.3.14) 

CTR00150 

INTEGER  JMI.JX, KM1 

CTR00160 

c 

ACTUAL  FIRST  STAGE  COEFFICIENTS  TO  BE  TRANSFORMED 

CTR00170 

-  N2(1.3)=1. 

CTR00180 

N2(1.2)=-1.7499 

CTR00190 

N2(1.1)=1.0017 

CTR00200 

D2(1.3)=1. 

CTR00210 

D2(1.2)=-1.8156 

CTR00220 

D2{1.1 )=0. 99068 

CTR00230 

c 

ACTUAL  SECOND  STAGE  COEFFICIENTS  TO  BE  TRANSFORMED 

CTR00240 

N2(2,3)=1. 

CTR00250 

N2(2,2)=-1 .8779 

CTR00260 

N2(2, 1 )=0. 99817 

CTR00270 

02(2, 3)=1 . 

CTR00280 

02(2, 2)=-1 .8095 

CTR00290 

02(2, 1 )=0. 98255 

CTR00300 

c 

INITIALIZE  BINARY  COEFFICIENT  MATRIX 

CTR00310 

DO  10  1=1,2 

CTR00320 

DO  12  J=1,3 

CTR00330 

N2B( l,J)=0. 

CTR00340 

023( l,J)=0. 

CTR00350 

N2P( l,J)=0. 

CTR00360 

D2P( 1 ,J)=0. 

CTR00370 

DO  14  K=1,13 

CTR00380 

N2T( 1 ,J, K)=0 

CTR00390 

02T( l,J,K)=0 

CTR00400 

14  CONTINUE 

CTR00410 

12  CONTINUE 

CTR00420 

10  CONTINUE 

CTR00430 

c 

PERFORM  COEFFICIENT  TRANSFORMATION  TO  BINARY  2920  REPRESENTATION 

CTR00440 

c 

NUMERATOR  TERMS 

CTR00450 

DO  20  1=1,2 

CTRD0460 

DO  22  J=1,3 

CTR00470 

N2TX=ABS(N2(  l,J)) 

CTR00480 

IF  (N2TX-1.0)  221,222,223 

CTR00490 

222  N2T(I,J,1)=1 

CTR00500 

N2B( l,J)=1.0 

CTR00510 

GO  TO  22 

CTR00520 

223  N2T(I,J,1)=1 

CTR00530 

N28(  1 , J  )  =  1 .0 

CTR00540 

N2TX=N2TX-1 . 

CTR00550 

APPENDIX  I 

fortran  program  CTRANS2 

THIS  PROGRAM  PERFORMS  A  TRANSFORMATION  OF  THE  COEFFICIENTS 
OF  TWO  SECOND  ORDER  POLYNOMIAL  STAGES  FOR  2920  IMPLEMENTATION 


FILE;  CTRANS2  FORTRAN  A1 


221 

DO  24  K=2,14 

CTR00560 

FKM1=FL0AT{K-1 ) 

CTR00570 

TW0VAL=1 ./(2.**FKM1  ) 

CTR00580 

TRIAL=N2TX-TW0VAL 

CTR00590 

IF  (TRIAL)  25.242,243 

CTR00600 

242 

N2T( I.J,K)=1 

CTR00610 

N2B( I.J)=N2B( I.J)+TWOVAL 

CTR00620 

GO  TO  20 

CTR00630 

243 

N2T( l,J,K)=1 

CTR00640 

N2B( l,J)=N2B( l,J)+TWOVAL 

CTR00650 

N2TX=TR 1 AL 

CTR00660 

GO  TO  24 

CTR00670 

25 

IF  (K.EQ.14)  N2T( I.J,K)=0 

CTR00680 

24 

CONTINUE 

CTR00690 

22 

CONTINUE 

CTR00700 

20 

CONTINUE 

CTR00710 

DENOMINATOR  TERMS 

CTR00720 

- 

DO  30  1=1,2 

CTR00730 

DO  32  J=1.3 

CTR00740 

D2TX=A8S(D2( 1 ,J) ) 

CTR00750 

IF  (D2TX-1.0)  321,322,323 

CTR00760 

322 

02T( l,J.1)=1 

CTR00770 

D2B( 1 .J )=1 .0 

CTR00780 

GO  TO  32 

CTR00790 

323 

D2T( l,J,1)=1 

CTR00800 

02B(  I.J)  =  1.0 

CTR00810 

D2TX=D2TX-1 . 

CTR00820 

321 

DO  34  K=2.14 

CTR00830 

FKM1  =  FL0AT( K-1  ) 

CTR00840 

TW0VAL=1 ./(2.**FKM1  ) 

CTR00850 

TRIAL=D2TX-TW0VAL 

CTR00860 

IF  (TRIAL)  35,342,343 

CTR00870 

342 

D2T( I.J,K)=1 

CTR00880 

D2B( I.J)=02B( l,J)+TWOVAL 

CTR00890 

GO  TO  30 

CTR00900 

343 

02T( I.J.K)=1 

CTR00910 

02B(  l,J)  =  D2B( l,J)+TWOVAL 

CTR00920 

02TX=TRIAL 

CTR00930 

GO  TO  34 

CTR00940 

35 

IF  (K.EQ.14)  02T( l,J,K)=0 

CTR00950 

34 

CONTINUE 

CTR00960 

32 

CONTINUE 

CTR00970 

30 

CONTINUE 

CTR00980 

PRINT  OUTPUT  HEADING 

CTR00990 

WRITE(4,80) 

CTR01000 

80 

FORMAT ( '  PROGRAM  CTRANS2  OUTPUT',//, 

CTR01010 

4'  FOURTH  ORDER  DIGITAL  FILTER  2920  BINARY  EQUIVALENTS',/, 

CTR01020 

t'  (TWO  CASCADED  SECOND  ORDER  SECTIONS)',///) 

CTR01030 

PRINT  FIRST  STAGE  TRANSFER  FUNCTION 

CTR01040 

WRITE(4,81  )N2(1.3),N2(1,2),N2(1,1),D2(1.3),D2(1, 

2).D2(1. 1 ) 

CTR01050 

81 

FORMAT (  '  FIRST  STAGE  TRANSFER  FUNCTION',//, 

CTR01060 

&'  ',E14.6,'  +  ',E14.6,'  2**-1  +  ',E14.6,'  Z**-2' 

CTR01070 

ae  -  -  - -  - - -  — 

"*  » / »^^ KOI OoO 

&'  '.E14.6,'  +  ',E14.6,'  Z**-l  +  ',E14.6,'  Z**-2' 

) 

CTR01090 

WRITE(4,810) 

CTR01100 

FILE:  CTRANS2  FORTRAN  A1 


810  FORMAT^///,'  BINARY  REPRESENTATION  OF  NUMERATOR  COEFFICIENTS',//, 

Se'  ROO  R01  R02  R03  R04  R05  R06  R07  R08  R09  RIO  Rll  R12  R13' 

&./) 

DO  811  J=1,3 
JX=4-J 

N2P( 1,JX)=N2B( 1,JX)/ABS(N2( 1,JX)) 

WRITE(4,812)JX.N2(1,JX) 

812  FORMATC  N2(1,'.ll.')  =  '.F9.6) 

WRITE(4.814)N2T( l.JX.I ).N2T(1,JX,2),N2T{1,JX,3),N2T(1,JX,4), 
4N2T( 1 . JX. 5 ) , N2T( 1 , JX, 6 ) . N2T( 1 . JX, 7 ) . N2T( 1 , JX, 8 ) . N2T( 1 , JX, 9 ) , 
4N2T(1,JX, 10),N2T(1,JX, 11 ).N2T(1,JX, 12).N2T(1,JX,13),N2T(1,JX,14), 
&N2B( 1.JX),N2P( 1,JX) 

814  F0RMAT(9X,  14(  II,  3X ),/',’  ABSOLUTE  BINARY  EQUIVALENT  =  ' 

&. F9.6./,'  (THIS  IS  ',F9.6,'  OF  THE  ACTUAL  VALUE)',/) 

811  CONTINUE 
WRITE(4,815) 

815  FORMAT(//,'  BINARY  REPRESENTATION  OF  DENOMINATOR  COEFFICIENTS',// 

-  &'  ROO  R01  R02  R03  R04  R05  R06  R07  R08  R09  RIO  R11  R12  R13' 

«c./) 

DO  816  J=1.3 
JX=4-J 

D2P( 1 . JX)=02B( 1 , JX)/A8S( D2( 1 , JX) ) 

WRITE(4,817)JX,02( 1,JX) 

817  FORMATC  D2(1,',I1,')  =  ',F9.6) 

WRITE(4,819)D2T(1,JX.1 ),D2T(1,JX,2),D2T( 1,JX,3),D2T( 1,JX,4), 
Sc02T(1,JX,5).02T( 1,JX,6),D2T(1,JX,7),02T(1,JX,8),D2T(1,JX,9), 

&02T( 1 . JX, 10 ) , 02T( 1 , JX, 1 1 ) , 02T( 1 , JX, 12 ) , D2T( 1 , JX, 1 3 ) , D2T( 1 , JX, 1 4 ) , 
S£02B(1,JX),D2P(1,JX) 

819  F0RMAT(9X,14( I1,3X),/,'  ABSOLUTE  BINARY  EQUIVALENT  =  ' 
4,F9.6,/.'  (THIS  IS  ',F9.6,'  OF  THE  ACTUAL  VALUE)',//) 

816  CONTINUE 

C  PRINT  SECOND  STAGE  TRANSFER  FUNCTION 

WRITE(4,82)N2(2,3).N2(2,2),N2(2,1 ),D2(2,3),D2(2,2),D2(2,1 ) 

82  FORMATCl','  SECOND  STAGE  TRANSFER  FUNCTION',//, 

&E14.6,'  +  ',E14.6,'  Z**-1  +  ',E14.6,'  Z**-2',/, 

.... - ... - ... - - — .... - ......... - - - '  ^  ^ 

4E14.6,'  +  ',E14.6,'  Z**>1  +  ',E14.6,'  Z**-2' ) 

WRITE(4,820) 

820  FORMAT(//, '  BINARY  REPRESENTATION  OF  NUMERATOR  COEFFICIENTS',//, 

Sc'  ROO  R01  R02  R03  R04  R05  R06  ROT  ROB  R09  RIO  R11  R12  R13' 

4./) 

00  821  J=1,3 
JX=4-J 

N2P(2,JX)=N2B(2, JX)/ABS(N2(2,JX) ) 

WRITE(4,822)JX,N2( 1,JX) 

822  FORMATC  N2(2,'.I1,')  =  '.F9.6) 

WRITE(4,824)N2T(2, JX, 1 ) , N2T( 2, JX, 2 ) , N2T( 2, JX, 3 ) , N2T( 2, JX, 4 ) , 
4N2r(2,JX,5),N2T(2,JX,6),N2T(2,JX,7),N2T(2,JX,8),N2T(2,JX,9), 
4N2T(2,JX, 10),N2T(2,JX, 11 ) , N2T( 2, JX, 12 ) , N2T( 2, JX, 1 3 ) , N2T( 2, JX, 14), 
4N2B(2,JX),N2P(2,JX) 

824  F0RMAT(9X, 14( I 1,3X),/, '  ABSOLUTE  BINARY  EQUIVALENT  =  ' 
4,F9.6,/,'  (THIS  IS  ',F9.6,'  OF  THE  ACTUAL  VALUE)',//) 

821  CONTINUE 
WRITE(4,825) 

825  FORMAT(/,'  BINARY  REPRESENTATION  OF  DENOMINATOR  COEFFICIENTS',//, 


CTR01110 

CTR01120 

CTR01130 

CTR01140 

CTR01150 

CTR01160 

CTR01170 

CTR01180 

CTR0n90 

CTR01200 

CTR01210 

CTR01220 

CTR01230 

CTR01240 

CTR01250 

CTR01260 

CTR01270 

CTR01280 

CTR01290 

CTR01300 

CTR01310 

CTR01320 

CTR01330 

CTR01340 

CTR01350 

CTR01360 

CTR01370 

CTR01380 

CTR01390 

CTR01400 

CTR01410 

CTR01420 

CTR01430 

CTR01440 

CTR01450 

CTR01460 

CTR01470 

CTR01480 

CTR01490 

CTR01500 

CTR01510 

CTR01520 

CTR01530 

CTR01540 

CTR01550 

CTR01560 

CTR01570 

CTR01580 

CTR01590 

CTR01600 

CTR01610 

CTR01620 

CTR01630 

CTR01640 

CTR01650 
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FILE:  CTRANS2  FORTRAN  A1 


4'  ROO  R01  R02  R03  R04  R05  R06  ROT  R08  R09  RIO  R11  R12  R13' 

&./) 

DO  826  J=1,3 
JX=4-J 

D2P(2.JX)=D2B(2.JX)/ABS{02(2.JX) ) 

WR I TE( 4. 827 ) JX, D2( 2, JX) 

827  FORMATC  02(2, '.11.')  =  '.F9.6) 

WRITE(4.829)D2T(2.JX.1 ).D2T(2.JX.2).D2T(2.JX.3).D2T(2.JX,4). 
&02T(2.JX.5).D2T{2.JX.6).D2T(2.JX.7).D2T(2.JX.8).D2T(2,JX.9). 
&02T(2.JX. 10).D2T(2.JX. 11 ).02T{2.JX.12),D2T(2.JX. 13).02T(2,JX. 14). 
&D2B(2.JX)  D2P(2.JX) 

829  F0RMAT(9X. 14( I1.3X)./. '  ABSOLUTE  BINARY  EQUIVALENT  =  ' 
&.F9.6./,'  (THIS  IS  '.F9.6.'  OF  THE  ACTUAL  VALUE )',// ) 

826  CONTINUE 
STOP 
END 


CTR01660 

CTR01670 

CTR01680 

CTR01690 

CTR01700 

CTR01710 

CTR01720 

CTR01730 

CTR01740 

CTR01750 

CTR01760 

CTR01770 

CTR01780 

CTR01790 

CTR01800 

CTR01810 
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PROGRAM  CTRANS2  OUTPUT 


FOURTH  ORDER  DIGITAL  FILTER  2920  BINARY  EQUIVALENTS 
(TWO  CASCADED  SECOND  ORDER  SECTIONS) 


FIRST  STAGE  TRANSFER  FUNCTION 

O.lOOOOOE+01  +  -0. 174990E+01  Z**-l  +  0.100170E+01  Z**-2 
O.lOOOOOE+01  +  -0. 181560E+01  Z**-1  +  0.990680E+00  Z**-2 


BINARY  REPRESENTATION  OF  NUMERATOR  COEFFICIENTS 

ROO  R01  R02  R03  R04  R05  R06  ROT  R08  R09  RIO  R11  R12  R13 
N2('1,3)  =  1.000000 

1  0000000000000 
ABSOLUTE  BINARY  EQUIVALENT  =  1.000000 

(THIS  IS  1.000000  OF  THE  ACTUAL  VALUE) 

N2(1.2)  =  -1.749900 

1101111111111-1 
ABSOLUTE  BINARY  EQUIVALENT  =  1.749875 

(THIS  IS  0.999986 ‘OF  THE  ACTUAL  VALUE) 

N2(1.1)  =  1.001700 

10000000001  101 
ABSOLUTE  BINARY  EQUIVALENT  =  1.001585 

(THIS  IS  0.999885  OF  THE  ACTUAL  VALUE) 


BINARY  REPRESENTATION  OF  DENOMINATOR  COEFFICIENTS 

ROO  R01  R02  R03  R04  R05  R06  ROT  R08  R09  RIO  R11  R12  R13 
D2(1,3)  =  1.000000 

10000000000000 
ABSOLUTE  BINARY  EQUIVALENT  =  1.000000 

(THIS  IS  1.000000  OF  THE  ACTUAL  VALUE) 


D2(1,2)  =  -1.815600 

11101000011001 
ABSOLUTE  BINARY  EQUIVALENT  =  1.815550 

(THIS  IS  0.999972  OF  THE  ACTUAL  VALUE) 


D2(1,1)  =  0.990680 

01111110110011 
ABSOLUTE  BINARY  EQUIVALENT  =  0.990601 

(THIS  IS  0.999920  OF  THE  ACTUAL  VALUE) 
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SECOND  STAGE  TRANSFER  FUNCTION 

0.100000E+01  +  -0. 187790E+01  Z**-1  0.998170E+00  Z**-2 

0.100000E+01  +  -0. 180950E+01  Z**-l  +  0.982550E+00  Z**-2 


BINARY  REPRESENTATION  OF  NUMERATOR  COEFFICIENTS 

ROO  R01  R02  RC3  R04  R05  R06  ROT  R08  R09  RIO  R11  R12  R13 
N2(2,3)  =  1.000000 

1  0000000000000 
ABSOLUTE  BINARY  EQUIVALENT  =  1.000000 

(THIS  IS  1.000000  OF  THE  ACTUAL  VALUE) 


N2(2.2)  =  -1.749900 

11110000010111 
ABSOLUTE  BINARY  EQUIVALENT  =  1.877805 

(TH-IS  IS  0.999949  OF  THE  ACTUAL  VALUE) 


N2(2. 1 )  =  1.001700 

01111111110001 
ABSOLUTE  BINARY  EQUIVALENT  =  0.998169 

(THIS  IS  0.999999  OF  THE  ACTUAL  VALUE) 


BINARY  REPRESENTATION  OF  DENOMINATOR  COEFFICIENTS 

ROO  R01  R02  R03  R04  R05  R06  ROT  R08  R09  RIO  R11  R12  R13 
02(2,3)  =  1.000000 

1  0000000000000 
ABSOLUTE  BINARY  EQUIVALENT  =  1.000000 

(THIS  IS  1.000000  OF  THE  ACTUAL  VALUE) 


02(2,2)  =  -1.809500 

11100111100111 
ABSOLUTE  BINARY  EQUIVALENT  =  1.809446 

(THIS  IS  0.999970  OF  THE  ACTUAL  VALUE) 


02(2,1  )  =  0.982550 

01111101110001 
ABSOLUTE  BINARY  EQUIVALENT  =  0.982544 

(THIS  IS  0.999994  OF  THE  ACTUAL  VALUE) 


199 


ooooooooooooooo 


FILE:  FIR4P  FORTRAN  A1 


*F 

APPENDIX  J  *F 

*F 

FORTRAN  PROGRAM  FIR4  *F 

ADAPTIVE  TRANSVERSAL  FILTER  *F 

*F 

THIS  PROGRAM  WILL  OBTAIN  THE  OPTIMAL  FILTER  WEIGHTS  FOR  THE  FIR  *F 

FILTER  OF  ORDER  FOUR.  THE  ALGORITHM  BEGINS  WITH  A  TRIAL  REGION  *F 

(-40,40)  FOR  EACH  OF  THE  WEIGHTS  AND  DOES  A  SUCCESSIVE  ITERATION  *F 
OF  THE  ERROR  FUNCTION  WHILE  TRANSFORMING  THE  WEIGHTS  TO  OPTIMAL  *F 

VALUES.  WHEN  THE  WEIGHTS  CONVERGE  TO  OPTIMAL  VALUES  THEN  THE  *F 

ITERATION  STOPS.  THEN  WE  MAY  TEST  THE  ADEQUACY  OF  THE  WEIGHTS  *F 

SO  OBTAINED  THROUGH  SUBSEQUENT  SIMULATION  IN  THE  FORTRAN  PROGRAM  *F 
FIR4SIM  WHICH  FOLLOWS  AS  APPPENDIX  K.  *F 

*F 

REAL  WS(4).WU(4),WL(4).R,JE  F 

INTEGER  NTA,NPR.NAV,NV, I P  F 

C  WS(I)  IS  THE  STARTING  GUESS  F 

WS(1)=.1  F 

WS(2)=1.  F 

WS(3)=1.  F 

WS(4)=1.  F 

C  WL( I )  IS  THE  LOWER  LIMIT  FOR  THE  I'TH  VARIABLE  F 

C  WU( I )  IS  THE  UPPER  LIMIT  FOR  THE  I'TH  VARIABLE  F 

WL(1)=-14.  F 

WU(1)=14.  F 

WL(2)=-14.  F 

WU{2)=14.  F 

WL(3)=-14.  F 

WU(3)=14.  F 

WL(4)=-14.  F 

WU(U)=14.  F 

C  A  DESCRIPTION  OF  THE  FOLLOWING  PARAMETERS  IS  DISCUSSED  IN  BOXPLX  F 

R=9./13.  F 

NT  A=  11*00  F 

NPR=100  F 

NAV=0  F 

NV=4  F 

IP=0  F 

C  PERFORM  ITERATION  ROUTINE  FOR  WEIGHT  OPTIMIZATION  F 

CALL  BOXPLX(NV,NAV,NPR,NTA,R,WS, I P,WU,WL,YMN,  lER)  F 

WRITE  (6,25)  F 

25  F0RMAT(1X,'  OPT  I MAL  GA I  NS' , / )  F 

DO  30  1=1,4  F 

30  WRITE(6,40) I ,WS( I )  F 

40  FORMAT( IX, 'W( ' , 12, ' )=' , F14.7)  F 

STOP  F 

END  F 

Q*****#*'IHH»******#****#-lt#*********.H.***********'(H*************************p 

SUBROUTINE  FIR(XX)  F 

C  SUBROUTINE  F(R(XX)  SIMULATES  THE  FIR  FILTER  F 

COMMON  J  F 

REAL*8  J, WO, W1,W2,W3, XI, X2,X3, INPUT, OUTPUT  F 


R00010 
R00020 
R00030 
R00040 
R00050 
R00060 
R00070 
R00080 
R00090 
R00100 
R00110 
ROOT  20 
R00130 
R00140 
R00150 
R00160 
R00170 
R00180 
R00190 
R00200 
R00210 
R00220 
R00230 
R00240 
R00250 
R00260 
R00270 
R00280 
R00290 
R00300 
R00310 
R00320 
R00330 
R00340 
R00350 
R00360 
R00370 
R00380 
R00390 
R00400 
R00410 
R00420 
R00430 
R00440 
R00450 
R00460 
R00470 
R00480 
R00490 
R00500 
R00510 
R00520 
R00530 
R00540 
R00550 
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PILE:  FIR4P 


FORTRAN  A1 


DIMENSION  XX(4).DESIRE(105) 

C  INITIAL  CONDITIONS 
ETIME=100. 

T=0.0 

IC0UNT=2 

C  INITIALIZE  THE  COST  (CUMULATIVE  ERROR)  FUNCTION 
J=0.0 

C  GAIN  COEFFICIENTS  TO  BE  OPTIMIZED 
WO=XX( 1 ) 

W1=XX(2) 

W2=XX(3) 

W3=XX(4) 

C  SHIFT  REGISTERS 
X1=0.0 
X2=0 . 0 
X3=0.0 

C  SIMULATE  DESIRED  OUTPUT  SIGNAL 
DO  15  1=1, 105 

15  DESIRE( I )=-1 .0 
DO  16  1=1,11 

16  DESIRE( l+44)=1 .0 
C 

K=1 

C  OUTPUT  HEADING 
C  WRITE(6,99) 

C  99  FORMAT!'  ','FIR  TRANSVERSAL  FILTER  SIMULATION  RESULTS’,///, 

C  k'  TIME  INPUT  SIMULATED  OUTPUT  DESIRED  OUTPUT',/) 

C  LOOP  FOR  100  SAMPLE  ITERATIONS 
200  CONTINUE 

C  SIMULATED  INPUT  SIGNAL 

INPUT=SIN(  .  I*T)*COS(  .  I''T)*(2.*C0S(  .  I'^T)) 

I  NPUT=-,  000U*T»»?*  04'»T 
SIMULATED  OUTPUT  SIGNAL  FROM  FIR  FILTER 
OUTPUT=WO* I NPUT  *W1 •* 1 ♦W?»X2»W}*H3 
C  WHEN  TO  PRINTOUT 

I F  (  I  COUNT  EQ.  2 )  GO  "0  SU 
GO  TO  300 
C  PRINTOUT 
50  CONTINUE 

C  EASYPLOT  OUTPUT  OP'  IN 

C  WR  I  TE  I  6.  100  )  T  ,  NP  .  ’  ,  T  JF  S  I  RE  I  K  ) 

C  100  FORMAT!  2'' ,  F8  .  ..  4) 

C  SCREEN  OUTPUT  opton 

C  WR  I  TE  (  6  .  '  DO  :  T  ,  NP  ,  ■  .  •  ■  .  •  OE  1  RE  ;  t>  ) 

C  100  FORMAT (  1 X ,  ■  T  . ME  ^  •  •  NPU T  t  '  , f 8  4 , 5H ,  ' OUT  PUT= ’  , F8 . 4 , 5X, 

C  *'  OES  I  RED  OU  f  P|J  T  ‘  «  . 

ICOUNT= 1 

C  TEST  I F  WANT  TO  STOP 
300  IF  (  T  .  GE  .  E  T  ME  ,  ,u  ■  .  .  n 
C  JE=ERBOR  FUNCT  ON 

JE=(  OUT  PUT  -OE  S  i  RE  I  >■  :  ' 

C  J  =  COST  FUNCTION  ’  CUMmov  I  .'f  E  »«0R  I 
J-J+JE 

C  STEP  SIZE  OELT 
DELT= 1 . 0 


F I R00560 
FIR00570 
FIR00580 
FIR00590 
FIR00600 
FIR00610 
FIR00620 
FIR00630 
F I R00640 
FIR00650 
FIR00660 
FIR00670 
FIR00680 
FIR00690 
FIR00700 
FIR00710 
FIR00720 
FIR00730 
FIR00740 
FIR00750 
F1R00760 
FIR00770 
FIR00780 
FIR00790 
FIR00800 
FIR00810 
FIR00820 
FIR00830 
FIR00840 
FIR00850 
FIR00860 
FIR00870 
FtR00880 
FIR00890 
F1R00900 
FIR00910 
FIR00920 
FIR00930 
FIR00940 
FIR00950 
FIR00960 
FIR00970 
FIR00980 
FIR00990 
FIR01000 
FIR01010 
FIR01020 
FIR01030 
F IRQ  1040 
FIR01050 
F I R01060 
FIR01070 
FIR01080 
FIR01090 
F I R01 100 
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FILE:  F1R4P 


FORTRAN  A1 


T=T+OELT  F I 

K=K+1  FI 

IC0UNT=IC0UNT+1  FI 

X3=X2  F 1 

X2=X1  FI 

X1=INPUT  FI 

GO  TO  200  FI 

C  OUTPUT  OPTIMAL  WEIGHTS  FI 

400  WRITE(6.500)  JE, WO.WI ,W2, W3  FI 

500  FORMATC  '.IX.'  J  = ' . El  5 . 9. 2X.  FI 

1  'W0='.F15.7.2X.'W1='.F15.7.2X.'W2='.F15.7.2X.'W3='.F15.7)  FI 

RETURN  FI 

FND  FI 

. FI 

F  I 

SUBROUTINE  BOXPLX  (CATEGORY  HO)  FI 

FI 

PURPOSE  FI 

FI 

BOXPLX  IS  A  SUBROUTINE  USED  TO  SOLVE  THE  PROBLEM  OF  LOCATING  FI 
A  MINIMUM  (OR  MAXIMUM)  OF  AN  ARBITRARY  OBJECTIVE  FUNCTION  FI 

SUBJECT  TO  ARBITRARY  EXPLICIT  AND/OR  IMPLICIT  CONSTRAINTS  BY  FI 
THE  COMPLEX  METHOD  OF  M.J.  BOX.  EXPLICIT  CONSTRAINTS  ARE  FI 

DEFINED  AS  UPPER  AND  LOWER  BOUNDS  ON  THE  INDEPENDENT  VARIABLES. FI 
IMPLICIT  CONSTRAINTS  MAY  BE  ARBITRARY  FUNCTIONS  OF  THE  VAR-  FI 
lABLES.  TWO  FUNCTION  SUBPROGRAMS  TO  EVALUATE  THE  OBJECTIVE  FI 

FUNCTION  AND  IMPLICIT  CONSTRAINTS.  RESPECTIVELY.  MUST  BE  FI 

SUPPLIED  BY  THE  USER  (SEE  EXAMPLE  BELOW).  BOXPLX  ALSO  HAS  FI 

THE  OPTION  TO  PERFORM  INTEGER  PROGRAMMING.  WHERE  THE  VALUES  FI 
OF  THE  INDEPENDENT  VARIABLES  ARE  RESTRICTED  TO  INTEGERS.  FI 

FI 

USAGE  FI 

FI 

CALL  BOXPLX  ( NV. NAV. NPR. NTA. R.XS. I P.XU. XL. YMN. I ER )  FI 

FI 
FI 

DESCRIPTION  OF  PARAMETERS  FI 

FI 

NV  AN  INTEGER  INPUT  DEFINING  THE  NUMBER  OF  INDEPENDENT  FI 

VARIABLES  OF  THE  OBJECTIVE  FUNCTION  TO  BE  MINIMIZED.  FI 

NOTE:  MAXIMUM  NV  +  NAV  IS  PRESENTLY  50.  MAXIMIM  NV  IS  FI 

25.  IF  THESE  LIMITS  MUST  BE  EXCEEDED,  PUNCH  A  SOURCE  FI 

DECK  IN  THE  USUAL  MANNER,  AND  CHANGE  THE  DIMENSION  FI 

STATEMENTS.  FI 

FI 

NAV  AN  INTEGER  INPUT  DEFINING  THE  NUMBER  OF  AUXILIARY  VAR-  FI 

lABLES  THE  USER  WISHES  TO  DEFINE  FOR  HIS  OWN  CONVENIENCE.  FI 

TYPICALLY  HE  MAY  WISH  TO  DEFINE  THE  VALUE  OF  EACH  IMPLICITF! 
CONSTRAINT  FUNCTION  AS  AN  AUXILIARY  VARIABLE.  IF  THIS  FI 

IS  DONE,  THE  OPTIONAL  OUTPUT  FEATURE  OF  BOXPLX  CAN  BE  FI 

USED  TO  OBSERVE  THE  VALUES  OF  THOSE  CONSTRAINTS  AS  THE  FI 
SOLUTION  PROGRESSES.  AUXILIARY  VARIABLES,  IF  USED,  FI 

SHOULD  BE  EVALUATED  IN  FUNCTION  KE  (DEFINED  BELOW).  FI 

NAV  MAY  BE  ZERO.  FI 

FI 


Ronio 
R01 120 
R01 130 
R01140 
R01150 
R01 160 
R01170 
R01180 
R01190 
R01200 
R01210 
R01220 
R01230 
R01240 
R01250 
R01260 
R01270 
R01280 
R01290 
R01300 
R01310 
R01320 
R01330 
R01340 
R01350 
R01360 
R01370 
R01380 
R01390 
R01400 
R01410 
R01420 
R01430 
R01440 
R01450 
R01460 
R01470 
R01480 
R01490 
R01500 
R01510 
R01520 
R01530 
R01540 
R01550 
R01560 
R01570 
R01580 
R01590 
R01600 
R01610 
R01620 
R01630 
R01640 
R01650 
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FILE:  FIR4P  FORTRAN  A1 


NPR  INPUT  INTEGER  CONTROLLING  THE  FREQUENCY  OF  OUTPUT  DESIRED  FIR01660 
FOR  DIAGNOSTIC  PURPOSES.  IF  NPR  .LE.  0,  NO  OUTPUT  WILL  BEFIR01670 
PRODUCED  BY  BOXPLX.  OTHERWISE,  THE  CURRENT  COMPLEX  OF  FIR01680 
K=  a*NV  VERTICES  AND  THEIR  CENTROID  WILL  BE  OUTPUT  AFTER  FIR01690 
EACH  NPR  PERMISSIBLE  TRIALS.  THE  NUMBER  OF  TOTAL  TRIALS,  FIR01700 
NUMBER  OF  FEASIBLE  TRIALS,  NUMBER  OF  FUNCTION  EVALUATIONS  FIR01710 
AND  NUMBER  OF  IMPLICIT  CONSTRAINT  EVALUATIONS  ARE  IN-  FIR01720 
CLUDED  IN  THE  OUTPUT.  FIR01730 

ADDITIONALLY.  (WHEN  NPR  .GT.  0)  THE  SAME  INFORMATION  FIRC1740 

WILL  BE  OUTPUT:  FIR01750 

FIR01760 

1)  IF  THE  INITIAL  POINT  IS  NOT  FEASIBLE,  FIR01770 

2)  AFTER  THE  FIRST  COMPLETE  COMPLEX  IS  GENERATED,  FIR01780 

3)  IF  A  FEASIBLE  VERTEX  CANNOT  BE  FOUND  AT  SOME  TRIAL,  FIR01790 

4)  IF  THE  OBJECTIVE. VALUE  OF  A  VERTEX  CANNOT  BE  MADE  F IRQ  1800 

NO-LONGER-WORST.  FIR01810 

5)  IF  THE  LIMIT  ON  TRIALS  (NTA)  IS  REACHED  AND,  FIR01820 

6)  WHEN  THE  OBJECTIVE  FUNCTION  HAS  BEEN  UNCHANGED  FOR  FIR01830 

2*NV  TRIALS,  INDICATING  A  LOCAL  MINIMUM  HAS  BEEN  FIR01840 

FOUND.  FIR01850 

FIR01860 

IF  THE  USER  WISHES  TO  TRACE  THE  PROGRESS  OF  A  SOLUTION,  FIR01870 
A  CHOICE  OF  NPR  =  25,  50  OR  100  IS  RECOMMENDED.  FIR01880 

F I R01890 

NTA  INTEGER  INPUT  OF  LIMIT  ON  THE  NUMBER  OF  TRIALS  ALLOWED  FIR01900 
IN  THE  CALCULATION.  IF  THE  USER  INPUTS  NTA  .LE.  0,  A  FIR01910 
DEFAULT  VALUE  OF  2000  IS  USED.  WHEN  THIS  LIMIT  IS  REACHEDF I RO 1 920 
CONTROL  RETURNS  TO  THE  CALLING  PROGRAM  WITH  THE  BEST  FIR01930 

ATTAINED  OBJECTIVE  FUNCTION  VALUE  IN  YMN,  AND  THE  BEST  FIR01940 
ATTAINED  SOLUTION  POINT  IN  XS.  FIR01950 

FIR01960 

R  A  REAL  NUMBER  INPUT  TO  DEFINE  THE  FIRST  RANDOM  NUMBER  FIR01970 
USED  IN  DEVELOPING  THE  INITIAL  COMPLEX  OF  2*NV  VERTICIES.  FIR01980 
(0.  .GT.  R  .LT.  1.)  IF  R  IS  NOT  WITHIN  THESE  BOUNDS,  FIR01990 

IT  WILL  BE  REPLACED  BY  1./3.  .  F I R02000 

FIR02010 

XS  INPUT  REAL  ARRAY  DIMENSIONED  AT  LEAST  NV+NAV.  THE  FIRST  F I R02020 
NV  MUST  CONTAIN  A  FEASIBLE  ORIGIN  FOR  STARTING  THE  CAL-  FIR02030 
CULATION.  THE  LAST  NAV  NEED  NOT  BE  INITIALIZED.  UPON  F I R02040 

RETURN  FROM  BOXPLX,  THE  FIRST  NV  ELEMENTS  OF  THE  ARRAY  F I R02050 

CONTAIN  THE  COORDINATES  OF  THE  MINIMUM  OBJECTIVE  FUNCT I  ON , F I R02060 
AND  THE  REMAINING  NAV  (NAV  .GE.  0)  CONTAIN  THE  VALUES  OF  F I R02070 
THE  CORRESPONDING  AUXILIARY  VARIABLES.  F I R02080 

F1R02090 

IP  INTEGER  INPUT  FOR  OPTIONAL  INTEGER  PROGRAMMING.  IF  IP=1,  FIR02100 
THE  VALUES  OF  THE  INDEPENDENT  VARIABLES  WILL  BE  REPLACED  FIR02n0 
WITH  INTEGER  VALUES  (STILL  STORED  AS  REAL*4).  FIR02120 

FIR02130 

XU  A  REAL  ARRAY  DIMENSIONED  AT  LEAST  NV  INPUTTING  THE  UPPER  FIR02140 
BOUND  ON  EACH  INDEPENDENT  VARIABLE,  (EACH  EXPLICIT  CON-  FIR02150 
STRAINT).  INPUT  VALUES  ARE  SLIGHTLY  ALTERED  BY  BOXPLX.  FIR02160 

FIR02170 

XL  A  REAL  ARRAY  DIMENSIONED  AT  LEAST  NV  INPUTTING  THE  LOWER  FIR02180 
BOUND  ON  EACH  INDEPENDENT  VARIABLE,  (EACH  EXPLICIT  CON-  FIR02190 
STRAINT).  NOTE:  FOR  BOTH  XU  AND  XL  CHOOSE  REASONABLE  F I R02200 
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FILE:  FIR4SIMP  FORTRAN  A1 


K=1 

C  OUTPUT  HEADING 
WRITE(6,99) 

99  FORMATC  ','FIR  TRANSVERSAL  FILTER  SIMULATION  RESULTS',///, 

&'  TIME  INPUT  SIMULATED  OUTPUT  DESIRED  OUTPUT',/) 

C  LOOP  FOR  100  SAMPLE  ITERATIONS 
200  CONTINUE 

C  SIMULATED  INPUT  SIGNAL  (600  HZ  +  1200  HZ  +  1800  HZ) 

INPUT=SIN(  . 1*T)*C0S( . 1*T)*(2.+C0S( . 1*T) ) 

C  SIMULATED  OUTPUT  SIGNAL  FROM  FIR  FILTER 
OUT  PUT=WO* I N  PUT+W1 *X1 +W2*X2+W3*X3 
C  WHEN  TO  PRINTOUT 

I F  ( I  COUNT. EO.  2)  GO  TO  50 
GO  TO  300 
C  PRINTOUT 
50  CONTINUE 

C  EASYPLOT  OUTPUT  OPTION 

WRITE  (6,100)  T, INPUT, OUTPUT, DESIRE(K) 

100  F0RMAT(2X, F8.4, IX, F8.4,3X, F8.4, 13X, F8.4) 

C  SCREEN  OUTPUT  OPTION 

C  WRITE  (6,100)  T, INPUT, OUTPUT, DESIRE( K) 

C  100  FORMAT( IX, 'TIME=' , F7.3,5X, '  I NPUT= ' , F8. 4, 5X, 'OUTPUT=' , F8.4,5X, 

C  Se'DESIRED  OUTPUT=' ,F8.4) 

IC0UNT=1 

C  TEST  IF  WANT  TO  STOP 
300  IF  (T.GE.ETIME)  GO  TO  400 
C  JE=ERROR  FUNCTION 

JE=( OUTPUT -OES I RE( K) )**2 
C  J=COST  FUNCTION  (CUMULATIVE  ERROR) 

J=J+JE 

C  STEP  SIZE  OELT 
DELT=1 .0 
T=T+0ELT 
K=K+1 

IC0UNT=IC0UNT+1 
X3=X2 
X2=X1 
X1=INPUT 
GO  TO  200 
400  RETURN 
END 


FIR00560 
FIR00570 
FIR00580 
FIR00590 
FIR00600 
F1R00610 
FIR00620 
FIR00630 
FIR00640 
FIR00650 
FIR00660 
FIR00670 
FIR00680 
FIR00690 
F1R00700 
FIR00710 
FIR00720 
FIR00730 
FIR00740 
FIR00750 
FIR00760 
FIR00770 
FIR00780 
FIR00790 
FIR00800 
FIR00810 
F1R00820 
FIR00830 
FIR00840 
FIR00850 
FIR00860 
FIR00870 
FIR00880 
FIR00890 
FIR00900 
FIR00910 
FIR00920 
FIR00930 
F I R00940 
FIR00950 
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FILE:  FIR4SIMP  FORTRAN  A1 


ROOD  10 

c 

*FI 

R00020 

c 

APPENDIX  K 

*FI 

R00030 

c 

*FI 

R00040 

c 

FORTRAN  PROGRAM  FIR4SIM 

*FI 

R00050 

c 

ADAPTIVE  TRANSVERSAL  FILTER  SIMULATION 

*FI 

R00060 

c 

*FI 

R00070 

c 

TO 

PERFORM  THE  SIMULATION  WE  EMPLOY  THE  PROGRAM  FIR  WH 

CH 

*FI 

R00080 

c 

WAS  USED  BY  FIR4  TO  CALCULATE  THE  FILTER  OUTPUT  VALUES 

WHEN 

*FI 

R00090 

c 

CALCULATING  THE  OPTIMAL  FILTER  WEIGHTS.  WE  ACCOMPLISH 

THIS 

*FI 

R00100 

c 

BY 

CHANGING  WS(*)  TO  THE  ACTUAL  W(*)  AND  ALSO  DELETING 

THE 

*FI 

ROOT  10 

c 

INITIAL  TRIAL  BOUNDS  REPRESENTED  BY  WU(*)  AND  WL(*). 

*FI 

R00120 

c 

*FI 

R00130 

R00140 

REAL  W(4),R,JE 

FI 

R00150 

c 

W( 

)  IS  THE  CALCULATED  OPTIMAL  GAIN 

FI 

R00160 

W(1  )  =  -7. 5060358 

FI 

R00170 

W(  2  )=7. 5403662 

FI 

R00180 

W(  3  )=4. 7097464 

FI 

R00190 

W(4)=-5. 3987589 

FI 

R00200 

WRITE  (6,25) 

F0RMAT(1X.'  OPTIMAL  GAINS' ,//) 

FI 

R00210 

25 

FI 

R00220 

DO  30  1=1,4 

FI 

R00230 

30 

WRITE(6,40) 1  ,W(  1 ) 

FORMAT( IX, 'W( 12, ' )=' , F14.7) 

FI 

R00240 

40 

FI 

R00250 

CALL  FIR(W) 

F  1 

R00260 

STOP 

FI 

R00270 

END 

FI 

R00280 

R00290 

SUBROUTINE  FIR(XX) 

FI 

R00300 

c 

SUBROUTINE  FIR(XX)  SIMULATES  THE  FIR  ADAPTIVE  TRANSVERSAL  FILTER 

FI 

R00310 

COMMON  J 

FI 

R00320 

REAL*8  J,W0,W1 ,W2,W3,X1 ,X2,X3, INPUT, OUTPUT 

FI 

R00330 

DIMENSION  XX(4),DESIRE(105) 

FI 

R00340 

c 

IN 

TIAL  CONDITIONS 

FI 

R00350 

ETIME=100. 

FI 

R00360 

T=0.0 

FI 

R00370 

IC0UNT=2 

FI 

R00380 

c 

IN 

TIALIZE  THE  COST  (CUMULATIVE  ERROR)  FUNCTION 

FI 

R00390 

J=0.0 

FI 

R00400 

c 

GA 

N  COEFFICIENTS  TO  BE  OPTIMIZED 

FI 

R00410 

WO=XX( 1 ) 

FI 

R00420 

W1=XX(2) 

FI 

R00430 

W2=XX( 3 ) 

F  1 

R00440 

W3=XX(4) 

FI 

R00450 

c 

SH 

FT  REGISTERS 

FI 

R00460 

X1=0.0 

FI 

R00470 

X2=0.0 

FI 

R00480 

X3=0.0 

FI 

R00490 

c 

SIMULATE  DESIRED  OUTPUT  SIGNAL 

FI 

R00500 

00  15  1=1,105 

FI 

R00510 

15 

DESIRE(  1  )=-1 .0 

FI 

R00520 

DO  16  1=1,11 

FI 

R00530 

16 

DESIRE( l+44)=1 .0 

FI 

R00540 

C 

FI 

R00550 

F I R4  P 


FORTRAN  A1 


KE=0 

RETURN 

END 


FIR08260 

FIR08270 

FIR08280 
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FILE:  FIR4P 


FORTRAN  A1 


C 


C 


C 


C 

C 


C 


1  '  NEW  MIN  IS  ',E15.7)  FI 

56  FORMAT  ('OMIN  OBJECTIVE  FUNCTION  IS  ',E15.7)  FI 

END  FI 

SUBROUTINE  FBV  (K, FUN,M)  FI 

DIMENSION  FUN(50)  FI 

M  =  1  FI 

FI 

DO  1  1=2, K  FI 

IF  (FUN(M).LE.FUN( I ))  GO  TO  1  FI 

M  =  I  FI 

1  CONTINUE  FI 

FI 

RETURN  F I 

END  FI 

SUBROUTINE  BOUT  (  NT.  NPT,  NFE, NCE, NV, NVT, V. K, FN, C. I K)  FI 

DIMENSION  V(50.50),  FN(50),  C(25)  FI 

WRITE  (6.4)  NT.NPT.NFE.NCE  FI 

FI 

DO  1  1  =  1.  K  FI 

WRITE  (6.5)  FN( I ).(V(J. I ).J=1.NV)  FI 

IF  (NVT.LE.NV)  GO  TO  1  FI 

NVP  =  NV+1  FI 

WRITE  (6,6)  (V(J, I ),J=NVP.NVT)  FI 

1  CONTINUE  FI 

FI 

IF  ( IK.NE.O)  GO  TO  2  Ft 

F  I 

WRITE  (6,7)  (C( I ), 1=1, NV)  FI 

RETURN  FI 

2  IF  ( IK.GE.O)  GO  TO  3  FI 

WRITE  (6,8)  (C( I ), 1=1, NV)  FI 

RETURN  FI 

3  WRITE  (6.9)  IK.(C( I ), l=1.NV)  FI 

RETURN  FI 

FI 

4  FORMAT  CONO.  TOTAL  TRIALS  =  ',I5,4X, 'NO.  FEASIBLE  TRIALS  =  ’,  FI 

1I5,4X,'N0.  FUNCTION  EVALUATIONS  =  ',I5,4X,'N0.  CONSTRAINT  EVALUATIFI 
20NS  =  ',l5/'0  FUNCTION  VALUE* , 6X, ' I NDEPENDENT  VAR  I ABLES/DEPENDF I 

3ENT  OR  IMPLICIT  CONSTRAINTS')  FI 

5  FORMAT  (1H  ,E18.7,2X,7E14.7/(21X,7E14.7))  FI 

6  FORMAT  (21X,7E14.7)  FI 

7  FORMAT  ( 10HOCENTROID  1 IX, 7E1 4 . 7/( 21X, 7E14. 7 ) )  FI 

8  FORMAT  ('0  BEST  VERTEX' . 7X, 7E14. 7/( 21X, 7E14 . 7 ) )  FI 

9  FORMAT  COCENTROID  LESS  VX' , 1 2, 2X, 7E14. 7/( 21X, 7E1 4 . 7 ) )  FI 

END  FI 

FUNCTION  FE(X)  FI 

DIMENSION  X(4)  FI 

REAL  J  FI 

COMMON  J  F I 

CALL  FIR(X)  FI 

FE=J  FI 

RETURN  FI 

END  FI 

FUNCTION  KE(X)-  FI 

DIMENSION  X(4)  FI 
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R07720 
R07730 
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R07760 
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R07800 
R07810 
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R07830 
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R07850 
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R07890 
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R08030 
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R08050 
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R081 10 
R08120 
R08130 
R08140 
R08150 
R08160 
R08170 
R08180 
R08190 
R08200 
R08210 
R08220 
R08230 
R08240 
R08250 
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FILE:  F1R4P 


FORTRAN  A1 


C 

C 

C 

C 


IF  NOT,  GO  TO  NEW  TRIAL. 

40  IF  (NT.GE.NTA)  GO  TO  41 

NEXT-TO-WORST  VERTEX  NOW  BECOMES  WORST. 
J  =  JN 
GO  TO  17 

41  lER  =  3 

IF  (NPR.GT.O)  WRITE  (6,54) 


COLLECTOR  POINT  FOR  ALL  ENDINGS. 

1)  CANNOT  DEVELOP  FEASIBLE  VERTEX.  I ER  =  1 

2)  CANNOT  DEVELOP  A  NO -LONGER -WORST  VERTEX.  I ER  =  2 

3)  FUNCTION  VALUE  UNCHANGED  FOR  K  TRIALS.  I ER  ==  0 

4)  LIMIT  ON  TRIALS  REACHED.  I  ER  =  3 

5)  CANNOT  FIND  FEASIBLE  VERTEX  AT  START.  I ER  =  -1 

42  CONTINUE 


'FIND  BEST  VERTEX. 

CALL  FBV  (K,FUN,M) 

IF  ( IER.GE.3)  GO  TO  44 

RESTART  IF  THIS  SOLUTION  IS  SIGNIFICANTLY  BETTER  THAN  THE  PREVIOUS, 
OR  IF  THIS  IS  THE  FIRST  TRY. 

IF  (NPR.LE.O)  GO  TO  43 
WRITE  (6,55)  (M,YMN, FUN(M) ) 

43  IF  ( FUN(M).GE.YMN)  GO  TO  47 

IF  (ABS(FUN(M)-YMN).LE.AMAX1(EP,EP*YMN))  GO  TO  47 

GIVE  IT  ANOTHER  TRY  UNLESS  LIMIT  ON  TRIALS  REACHED. 

44  YMN  =  FUN(M) 

FUN( 1 )  =  FUN(M) 

DO  45  1=1, NV 
CEN( I )  =  V( l,M) 

SUM(  I  )  =  V(  l,M-) 

45  V( 1,1)  =  V( l,M) 

DO  46  l=1,NVT 

46  XS( I )  =  V( l,M) 

IF  ( IER.LT.3)  GO  TO  6 

47  IF  (NPR.LE.O)  GO  TO  48 

CALL  BOUT  (NT,NPT,NFE,NCE,NV,NVT,V,K,FUN,V(1,M),-1) 

WRITE  (6,56)  FUN(M) 

48  RETURN 


FIR07160 

FIR07170 

FIR07180 

FIR07190 

FIR07200 

FIR07210 

FIR07220 

FIR07230 

FIR07240 

FIR07250 

FIR07260 

FIR07270 

FIR07280 

FIR07290 

FIR07300 

FIR07310 

FIR07320 

FIR07330 

FIR07340 

FIR07350 

FIR07360 

FIR07370 

FIR07380 

FIR07390 

FIR07400 

FIR07410 

FIR07420 

FIR07430 

FIR07440 

FIR07450 

FIR07460 

FIR07470 

FIR07480 

FIR07490 

FIR07500 

FIR07510 

FIR07520 

FIR07530 

FIR07540 

FIR07550 

FIR07560 

FIR07570 

FIR07580 

FIR07590 

FIR07600 

FIR07610 


49  FORMAT  (50H0 INDEX  AND  DIRECTION  OF  OUTLYING  VARIABLE  AT  STARTI5)  F I R07620 

50  FORMAT  (50H0IMPLICIT  CONSTRAINT  VIOLATED  AT  START.  DEAD  END.  )  FIR07630 

51  FORMAT  COCANNOT  FIND  FEAS I BLE' , 1 4, ' TH  VERTEX  OR  CENTROID  AT  STARTF I R07640 

1.')  FIR07650 

52  FORMAT  (10H0AT  TRIAL  I4,54H  CANNOT  FIND  FEASIBLE  VERTEX  WHICH  IS  NFIR07660 

10  LONGER  WORST, 14, 15X, 'RESTART  FROM  BEST  VERTEX.')  FIR07670 

53  FORMAT  (40H0FUNCTION  HAS  BEEN  ALMOST  UNCHANGED  FOR  I5,7H  TRIALS)  FIR07680 

54  FORMAT  (27H0LIMIT  ON  TRIALS  EXCEEDED.  )  F I R07690 

55  FORMAT  ('OBEST  VERTEX  IS  NO. ',13,'  OLD  MIN  WAS  ',E15.7,  FIR07700 


FILE:  F1R4P  FORTRAN  A1 

IF  (IP.EQ.I)  VT  =  AINT(VT+.5) 

FIR06610 

29  V(I,J)  =  AMAX1(AMIN1(VT,BU( 1 )),BL( 1 )) 

F 1 R06620 

C 

FIR06630 

GO  TO  32 

F 1 R06640 

C 

FIR06650 

30  00  31  1=1, NV 

FIR06660 

VT  =  .5*(CEN( 1 )+V( I.J)) 

FIR06670 

IF  (IP.EQ.I)  VT  =  AINT(VT+.5) 

FIR06680 

V( I.J)  =  VT 

F 1 R06690 

31  CONTINUE 

FIR06700 

C 

FIR06710 

32  IF  (LIMT.LT.NLIM)  GO  TO  33 

FIR06720 

C 

FIR06730 

C 

CANNOT  MAKE  THE  'J'TH  VERTEX  NO  LONGER  WORST  BY  DISPLACING  TOWARD 

FIR06740 

C 

THE  CENTROID  OR  BY  OVER-REFLECTING  THRU  THE  BEST  VERTEX. 

FIR06750 

lER  =  2 

FIR06760 

IF  (NPR  .LE.  0)  GO  TO  42 

FIR06770 

•  WRITE  (6,52)  NT,  J 

FIR06780 

CALL  BOUT  (NT,NPT,NFE,NCE,NV,NVT,V,K, FUN.CEN.J) 

F 1 R06790 

GO  TO  42 

FIR06800 

33  NT  =  NT+1 

FIR06810 

GO  TO  20 

FIR0682U 

C 

FIR06830 

C 

SUCCESS:  WE  HAVE  A  REPLACEMENT  FOR  VERTEX  J. 

F 1 R06840 

34  FUN(J)  =  FUNTRY 

FIR06850 

FUNOLD  =  FUNTRY 

FIR06860 

NPT  =  NPT+1 

FIR06870 

C 

F 1 R06880 

C 

EVERY  lOO'TH  PERMISSIBLE  TRIAL,  RECOMPUTE  CENTROID 

SUMMATION  TO 

FIR06890 

C 

AVOID  CREEPING  ERROR. 

F 1 R06900 

IF  (MO0(NPT,100).NE.0)  GO  TO  37 

FIR06910 

C 

FIR06920 

DO  36  1  =  1,  NV 

FIR06930 

SUM( 1 )  =  0. 

FIR06940 

C 

FIR06950 

DO  35  N=1,K 

FIR06960 

35  SUM( 1 )  =  SUM( 1 )+V( l,N) 

FIR06970 

- 

C 

FIR06980 

CEN( 1 )  =  SUM( 1 )/FK 

FIR06990 

36  CONTINUE 

FIR07000 

C 

FIR07010 

LC  =  0 

FIR07020 

GO  TO  39 

FIR07030 

C 

FIR07040 

37  DO  38  1=1, NV 

FIR07050 

38  SUM( 1  )  =  SUM( 1 )+V( I.J) 

FIR07060 

C 

FIR07070 

LC  =  J 

FIR07080 

C 

FIR07090 

39  IF  (NPR.LE.O)  GO  TO  40 

FIR07100 

IF  (MOD(NPT,NPR).NE.O)  GO  TO  40 

FIR07110 

C 

FIR07120 

CALL  BOUT  (NT,NPT,NFE,NCE,NV,NVT,V,K,FUN,CEN,LC) 

FIR07130 

C 

FIR07140 

C 

HAS  THE  MAX.  NUMBER  OF  TRIALS  BEEN  REACHED  WITHOUT 

CONVERGENCE? 

FIR07150 

212 
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FILE:  FIR4P 


FORTRAN  A1 


C 

C 

C 

C 


C 


GO  TO  24 

CONSTRAINT  VIOLATION:  MOVE  NEW  POINT  TOWARD  CENTROID. 

22  DO  23  l=1,NV 

VT  =  .5*(CEN( I )+V( I .J)) 

IF  ( IP.EQ. 1 )  VT  =  AINT(VT+.5) 

V( I ,J )  =  VT 

23  CONTINUE 

24  NT  =  NT+1 

25  CONTINUE 

lER  =  1 

CANNOT  GET  FEASIBLE  VERTEX  BY  MOVING  TOWARD  CENTROID, 

OR  BY  OVER-REFLECTING  THRU  THE  BEST  VERTEX. 

IF  (NPR.LE.O)  GO  TO  42 
'  WRITE  (6.52)  NT,J 

CALL  BOUT  (NT,NPT,NFE,NCE.NV.NVT.V,k,FUN.CEN.J) 

GO  TO  42 

FEASIBLE  VERTEX  FOUND.  EVALUATE  THE  OBJECTIVE  FUNCTION. 

26  NFE  =  NFE+1 
FUNTRY  =  FE(V( 1 ,J ) ) 

TEST  TO  SEE  IF  FUNCTION  VALUE  HAS  NOT  CHANGED. 

AFO  =  ABS( FUNTRY-FUNOLD) 

AMX  =  AMAX1(ABS(EP*FUNOLD),EP) 

ACTIVATE  THE  FOLLOWING  TWO  STATEMENTS  FOR  DIAGNOSTIC  PURPOSES  ONLY. 
WRITE  (6.99)  J, AFO, AMX, FUNTRY, FUNOLD,FUN(J).FUN(JN), NTFS. N 
99  FORMAT  ( IX, I 3,6E15.7,2I5) 

IF  (AFO.GT.AMX)  CO  TO  27 
NTFS  =  NTFS+1 
IF  (NTFS.LT.NCT)  GO  TO  28 
lER  =  0 

IF  (NPR.LE.O)  GO  TO  42 
WRITE  (6,53)  K 

CALL  BOUT  (NT,NPT,NFE,NCE,NV,NVT,V.K,FUN,CEN,0) 

GO  TO  42  • 

27  NTFS  =  0 

IS  THE  NEW  VERTEX  NO  LONGER  WORST? 

28  IF  ( FUNTRY. LT. KUN(JN))  GO  TO  34 

TRIAL  VERTEX  IS  STILL  WORST;  ADJUST  TOWARD  CENTROID. 

EVERY  'KV'TH  TIME,  OVER-REFLECT  THE  OFFENDING  VERTEX  THROUGH  THE 
BEST  VERTEX. 

LIMT  =  LIMT+1 

IF  (MOO( LIMT, KV) . NE.O)  GO  TO  30 
CALL  FBV  ( K, FUN,M) 

DO  29  1=1 ,NV 

VT  =  BETA*V(  I ,M)-ALPHA*V(  I  ,J ) 


FIR06060 
FIR06070 
FIR06080 
FIR06090 
FIR06100 
FIR061 10 
FIR06120 
FIR06130 
FIR06140 
FIR06150 
FIR06160 
FIR06170 
F I R06180 
FIR06190 
FIR06200 
FIR06210 
FIR06220 
FIR06230 
FIR06240 
FIR06250 
FIR06260 
FIR06270 
FIR06280 
FIR06290 
FIR06300 
FIR06310 
FIR06320 
FIR06330 
FIR06340 
FIR06350 
FIR06360 
FIR06370 
FIR06380 
FIR06390 
FIR06400 
FIR06410 
FIR06420 
FIR06430 
F I R06440 
FIR06450 
F I R06460 
FIR06470 
F I R06480 
FIR06490 
FIR06500 
FIR06510 
FIR06520 
FIR06530 
FIR06540 
F IR06550 
F I R06560 
nR06570 
FIR06580 
FIR06590 
F I R06600 


• 

1. 

FILE:  FIR4P  FORTRAN  A1 

A  C 

FIR05510 

1  ^ 

FIND  THE  WORST  VERTEX,  THE  'J'TH. 

FIR05520 

P 

J  =  1 

F1R05530 

c 

FIR05540 

00  16  1=2, K 

FIR05550 

IF  (FUN(J).GE.FUN( 1  ))  GO  TO  16 

FIR05560 

• 

J  =  1 

FIR05570 

16  CONTINUE 

FIR05580 

'a  ^ 

FIR05590 

1  ^ 

BASIC  LOOP.  ELIMINATE  EACH  WORST  VERTEX  IN  TURN.  IT  MUST  BECOME 

FIR05600 

"  c 

NO  LONGER  WORST,  NOT  MERELY  IMPROVED.  FIND  NEXT-TO-WORST  VERTEX, 

FIR05610 

c 

THE  'JN'TH  ONE. 

F 1 R05620 

17  JN  =  1 

FIR05630 

IF  (J.EQ.1)  JN  =  2 

FIR05640 

c 

FIR05650 

•* 

DO  18  1=1, K 

FIR05660 

*« 

IF  ( l.EQ.J)  GO  TO  18 

FIR05670 

1 

IF  {FUN(JN).GE.FUN( 1 ))  GO  TO  18 

FIR05680 

m 

JN  =  1 

FIR05690 

18  CONTINUE 

FIR05700 

c 

FIR05710 

c 

LIMT  =  NUMBER  OF  MOVES  DURING  THIS  TRIAL  TOWARD  THE  CENTROID 

FiR05720 

•I-  c 

DUE  TO  FUNCTION  VALUE. 

FIR05730 

•/ 

LIMT  =  1 

FIR05740 

^  C 

F1R05750 

^  c 

COMPUTE  CENTROID  AND  OVER  REFLECT  WORST  VERTEX. 

FIR05760 

^  c 

FIR05770 

DO  19  1=1, NV 

FIR05780 

VT  =  V( l,J) 

FIR05790 

SUM( 1 )  =  SUM( 1 )-VT 

FIR05800 

CEN( 1 )  =  SUM( 1 )/FKM 

FIR05810 

,■•/. 

VT  =  BETA*CEN( 1 )-ALPHA*VT 

FIR05820 

IF  (IP.EQ.1)  VT  =  AlNT(VT+.5) 

FIR05830 

sd  c 

FIR05840 

P  c 

INSURE  THE  EXPLICIT  CONSTRAINTS  ARE  OBSERVED. 

FIR05850 

19  V(I,J)  =  AMAX1(AMIN1(VT,BU( 1 )),BL( 1 )) 

F1R05860 

y.  c 

FIR05870 

NT  =  NT+1 

F 1 R05880 

c 

FIR05890 

’v'  C 

CHECK  FOR  IMPLICIT  CONSTRAINT  VIOLATION. 

FIR05900 

FIR05910 

ii 

20  DO  25  N=1,NLIM 

FIR05920 

m 

NCE  =  NCE+1 

F1R05930 

>: 

IF  (KE(V(1,J)).EQ.O)  GO  TO  26 

F 1 R05940 

c 

FIR05950 

c 

EVERY  'KV'TH  TIME,  OVER-REFLECT  THE  OFFENDING  VERTEX  THROUGH  THE 

FIR05960 

c 

BEST  VERTEX. 

FIR05970 

IF  (MOO(N,KV).NE.O)  GO  TO  22 

FIR05980 

CALL  FBV  (K, FUN,M) 

FIR05990 

i  c 

F 1 R06000 

i 

DO  21  1=1, NV 

FIR06010 

1  ■  - 

VT  =  BETA*V( l,M)-ALPHA*V( l,J) 

F 1 R06020 

* 

IF  (1P.EQ.1)  VT  =  AINT(VT+.5) 

FIR06030 

■u'.- 

21  V{I,J)  =  AMAX1{AMIN1(VT,BU( 1 )),BL( 1 )) 

FIR06040 

c 

FIR06050 

>>■.• 

r 

• 

.*• 

210 
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• 
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K 
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FILE:  FIR4P  FORTRAN  A1 


FUNOLD  =  FUN(l) 

00  15  1=2, K 
FI  =  FI+1. 

LIMT  =  0 

7  LIMT  =  LIMT+1 

END  CALCULATION  IF  FEASIBLE  CENTROID  CANNOT  BE  FOUND. 
IF  (LIMT.GE.NLIM)  GO  TO  11 

DO  8  J=1.NV 

RANDOM  NUMBER  GENERATOR  (RANOU) 

I  OR  =  IQR*65539 

IF  (IQR.LT.O)  IQR  =  I QR+21 474836U7+1 
RQX  =  IQR 

RQX  =  RQX*. 465661 3E-9 
'  V(J,I)  =  BL(J)+RQX*(BU(J)-BL(J)) 

IF  (IP.EQ.1)  V(J.  I )=AINT(V(J, I )  +  .5) 

8  CONTINUE 

DO  10  L=1,NLIM 
NCE  =  NCE+1 

IF  (KE(V(1, 1 )).EQ.O)  GO  TO  13 
DO  9  J=1,NV 

VT  =  .5*(V(J, l)+CEN(J)) 

IF  ( IP.EQ.1)  VT  =  AINT(VT+.5) 

V(J,  I  )  =  VT 

9  CONTINUE 

10  CONTINUE 

11  IF  (NPR.LE.O)  GO  TO  12 
WRITE  (6,51  )  I 

CALL  BOUT  (NT,NPT,NFE,NCE,NV,NVT,V, l,FUN,CEN, I ) 

12  lER  =  -1 
GO  TO  48 

13  DO  14  J=1,NV 

SUM(J)  =  SUM(J)+V(J, I ) 

14  CEN(J)  =  SUM(J)/FI 

TRY  TO  ASSURE  FEASIBLE  CENTROID  FOR  STARTING. 

NCE  =  NCE+1 

IF  (KE(CEN).EQ.O)  GO  TO  60 
SUM(J)  =  SUM(J)  -V(J, I ) 

GO  TO  7 
60  NFE  =  NFE+1 

FUN( I )  =  FE(V(1, I )) 

15  CONTINUE 

END  OF  LOOP  SETTING  OF  INITIAL  COMPLEX. 

IF  (NPR.LE.O)  GO  TO  17 

CALL  BOOT  (NT,NPT,NFE,NCE,NV,NVT,V,K,FUN,CEN.O) 


F I R04960 

FIR04970 

FIR04980 

F I R04990 

FIR05000 

FIR05010 

FIR05020 

FIR05030 

FIR05040 

FIR05050 

FIR05060 

FIR05070 

FIR05080 

FIR05090 

FIR05100 

FIR05110 

FIR05120 

FIR05130 

FIR05140 

FIR05150 

FIR05160 

FIR05170 

FIR05180 

FIR05190 

F I  R05200 

FIR05210 

FIR05220 

FIR05230 

FIR05240 

FIR05250 

FIR05260 

FIR05270 

FIR05280 

FIR05290 

FIR05300 

FIR05310 

FIR05320 

FIR05330 

FIR05340 

FIR05350 

FIR05360 

FIR05370 

FIR05380 

FIR05390 

F I R05400 

FIR05410 

FIR05420 

FIR05430 

F I R05440 

FIR05450 

FIR05460 

FIR05470 

F I R05480 

F I R05490 

FIR05500 
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FILE:  FIR4P 


FORTRAN  A1 


NPT  =  0 

C  CURRENT  NO.  OF  PERMISSIBLE  TRIALS 

NTFS  =  0 

CURRENT  NO.  OF  TIMES  F  HAS  BEEN  ALMOST  UNCHANGED 

CHECK  FEASIBILITY  OF  START  POINT 

DO  4  l=1.NV 
VT  =  XS( I ) 

IF  (BL( I j.LE.VT)  GO  TO  1 

I  I  =  -I 
VT  =  BL( I ) 

GO  TO  2 

1  IF  (BU( I ).GE.VT)  GO  TO  3 

II  =  1 
VT  =  BU( I  ) 

2  IF  (NPR.GT.O)  WRITE  (6,49)  II 
'  3  V( I . 1 )  =  VT 

CEN( I )  =  VT 
IF  ( IP.EQ.l )  GO  TO  4 
BL(  I  )  =  BL(  I  )+AMA)<1(EP,  EP*A8S(BL(  I  ))) 

BU(  I )  =  BU(  I ) -AMAX1 ( EP, EP*ABS( BU( 1 ) ) ) 

4  SUM( I )  =  VT 


NCE  =  1 

NUMBER  OF  CONSTRAINT  EVALUATIONS 

I  =  I 

IF  (KE(V(1.1)).EQ.O)  GO  TO  5 
IF  (NPR.LE.O)  GO  TO  12 
WRITE  (6,50) 

GO  TO  12 

5  NFE  =  1 

NUMBER  OF  VERTICES  (K)  =  2  TIMES  NO.  OF  VARIABLES. 

K  =  2*NV 

NUMBER  OF  DISPLACEMENTS  ALLOWED. 

NLIM  =  5*NV+10 

NUMBER  OF  CONSECUTIVE  TRIALS  WITH  UNCHANGED  FE  TO  TERMINATE. 
NCT  =  NLIM+NV 
ALPHA  =1.3 
FK  =  K 
FKM  =  FK-1. 

BETA  =  ALPHA+1 . 

INSURE  SEED  OF  RANDOM  NUMBER  GENERATOR  IS  ODD. 

IQR  =  R*1.E7 

IF  (MOD( iqR,2).EQ.O)  iqR=IQR+101 

SET  UP  INITIAL  VERTICES 
FUN(1)  =  FE(V(1.1)) 

YMN  =  FUN( 1  ) 

6  FI  =  1  . 


FIR04410 
F 1 R04420 
FIR04430 
F I R04440 
F I R04450 
F I R04460 
F I R04470 
FIR04480 
F I R04490 
FIR04500 
FIR04510 
FIR04520 
FIR04530 
F I R04540 
F1R04550 
F I R04560 
FIR04570 
F1R04580 
FIR04590 
F1R04600 
FIR04610 
F I R04620 
FIR04630 
F I R04640 
FIR04650 
F I R04660 
FIR04670 
F1R04680 
FIR04690 
FIR04700 
FIR04710 
F I R04720 
FIR04730 
F1R04740 
FIR04750 
FIR04760 
FIR04770 
FIR04780 
F I R04790 
FIR04800 
FIR04810 
F1R04820 
FIR04830 
F1R04840 
FIR04850 
F I R04860 
FIR04870 
FIR04880 
FIR04890 
FIR04900 
FIR04910 
FIR04920 
FIR04930 
FIR04940 
FIR04950 
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SUBROUTINE  'BOUT'  AND  FUNCTION  'FBV*  ARE  INTEGRAL  PARTS  OF  FI 
THE  BOXPLX  PACKAGE.  FI 

FI 

TWO  FUNCTIONS  MUST  BE  SUPPLIED  BY  THE  USE**  THE  FIRST,  KE(X),  FI 
IS  USED  TO  EVALUATE  THE  IMPLICIT  COPSTRAIN1.  SET  KE=0  AT  THE  FI 
BEGIN  I NG  OF  THE  FUNCTION,  THEN  EVALUATE  THE  .iHPLICIT  CON-  FI 

STRAINTS.  IN  THE  EXAMPLE  ABOVE,  THE  FIRST  CONSTRAINT,  X(3),  FI 
MUST  BE  WITHIN  THE  RANGE  (0.  .LE.  X( 3 )  .LE.  6.).  THE  SECOND  FI 

CONSTRAINT  X(4),  MUST  BE  .GE.  0.  .  IF  EITHER  CONSTRAINT  IS  FI 

NOT  WITHIN  THESE  BOUNDS,  CONTROL  IS  TRANSFERRED  TO  STATEMENT  1,FI 

AND  KE  IS  SET  TO  "l"  AND  CONTROL  IS  RETURNED  TO  BOXPLX.  FI 

FI 

THE  SECOND  FUNCTION  THE  USER  MUST  PROVIDE  EVALUATES  THE  OB-  FI 

JECTIVE  FUNCTION.  IT  IS  CALLED  FE(X)  AS  SHOWN  IN  THE  EXAM-  FI 

PLE  ABOVE,  AND  FE  MUST  BE  SET  TO  THE  VALUE  OF  THE  OBJECTIVE  FI 

FUNCTION  CORRESPONDING  TO  CURRENT  VALUES  OF  THE  NV  INDEPENDENT  FI 
VARIABLES  IN  ARRAY  'X'.  FI 

FI 
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FI 
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FI 
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FI 
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FI 
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FI 

XS(NV),  BU(NV),  BL(FI 
FI 
FI 


KV  =  5 

F 

EP  =  1.E-6 

F 

NTA  =  2000 

F 

IF  (NTZ.GT.O)  NTA  =  NTZ 

F 

R  =  RZ 

F 

1 F  (R.LE.O. .OR.R.GE. 1 . )  R=1 

./3. 

F 

NVT  =  NV+NAV 

F 

F 

TOTAL  VARS,  EXPLICIT 

PLUS  IMPLICIT 

F 

NT  =  0 

F 

CURRENT  TRIAL  NO. 

F 

SUBROUTINE  BOXPLX  ( NV, NAV, NPR, NTZ, RZ, XS, I P, BU, 
DIMENSION  V(50,50),  FUN(50),  SUM(25),  CEN(25), 
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FILE:  FIR4P 


FORTRAN  A1 


THE  REPLACED  VERTEX  AND  CEt<TROID  OF  ALL  OTHER  VERTICES.)  FI 

FI 

WHEN  AN  OVER-REFLECTION  IS  NOT  FEASIBLE  OR  REMAINS  WORST,  IT  FI 
IS  CONSIDERED  NOT-PERM I SS I BLE  AND  IS  DISPLACED  HALFWAY  TOWARD  FI 
THE  CENTROID.  AFTER  FOUR  SUCH  ATTEMPTS  ARE  MADE  UNSUCCESSFULLYF I 
EVERY  FIFTH  ATTEMPT  IS  MADE  BY  REFLECTING  THE  OFFENDING  VERTEX  FI 
THROUGH  THE  PRESENT  BEST  VERTEX.  INSTEAD  OF  THROUGH  THE  CEN-  FI 
TROID.  IF  5*N+10  DISPLACEMENTS  AND  OVER -REFLECT  I ONS  OCCUR  FI 
WITHOUT  A  SUCCESSFUL  (PERMISSIBLE)  RESULT,  THE  CURRENT  BEST  FI 
VERTEX  IS  TAKEN  AS  AN  INITIAL  FEASIBLE  POINT  FOR  A  RESTART  FI 

RUN  OF  THE  COMPLETE  PROCESS.  RESTARTING  IS  ALSO  UNDERTAKEN  FI 
WHEN  6*NV+10  CONSECUTIVE  TRIALS  HAVE  BEEN  MADE  WITH  NO  SIGNIF-  FI 
ICANT  CHANGE  IN  THE  VALUE  OF  THE  OBJECTIVE  FUNCTION.  IN  ALL  FI 
CASES,  RESTARTING  IS  INHIBITED  IF  THE  LAST  RESTART  DID  NOT  FI 

PRODUCE  A  SIGNIFICANT  IMPROVEMENT  IN  THE  MINIMUM  ATTAINED.  FI 

FI 

IT  IS  RECOMMENDED  THAT  THE  USER  READ  THE  REFERENCE  FOR  FI 

FURTHER  USEFUL  INFORMATION.  IT  SHOULD  BE  NOTED  THAT  THE  FI 

ALGORITHM  OEFINED  THERE  HAS  BEEN  ALTERED  TO  FIND  THE  FI 

CONSTRAINED  MINIMUM,  RATHER  THAN  THE  MAXIMUM.  FI 

FI 

FI 

FI 

REMARKS  FI 

FI 

THE  INTEGER  PROGRAMMING  OPTION  WAS  ADDED  TO  THIS  PROGRAM  FI 

AS  SUGGESTED  IN  REFERENCE  (2).  A  MIXED  INTEGER/CONTINUOUS  FI 

VARIABLE  VERSION  OF  BOXPLX  WOULD  BE  EASY  TO  CREATE  BY  DE-  FI 

GLARING  "IP"  TO  BE  AN  ARRAY  OF  NV  CONTROL  VARIABLES  WHERE  IP  FI 
(l)=1  WOULD  INDICATE  THAT  THE  I -TH  VARIABLE  IS  TO  BE  CONFINED  FI 
TO  INTEGER  VALUES.  EACH  STATEMENT  OF  THE  FORM  'IF  (IP  .EQ.  FI 
1 ) '  ETC.  WOULD  THEN  NEED  TO  BE  ALTERED  TO  ' I F  ( I P( I )  . EQ.  1 ) '  FI 
ETC.,  WHERE  THE  SUBSCRIPT  IS  APPROPRIATELY  CHOSEN.  NORMALLY,  FI 
XU  AND  XL  VALUES  ARE  ALTERED  TO  BE  AN  EPSILON  'WITHIN'  ACTUAL  FI 
VALUES  DECLARED  BY  THE  USER.  THIS  ADJUSTMENT  IS  NOT  MADE  FI 

WHEN  IP=1.  FI 

FI 

NOTE:  NO  NON-LINEAR  PROGRAMMING  ALGORITHM  CAN  GUARANTEE  THAT  FI 

THE  ANSWER  FOUND  IS  THE  GLOBAL  MINIMUM,  RATHER  THAN  JUST  A  FI 

LOCAL  MINIMUM.  HOWEVER,  ACCORDING  TO  REF. 2.  THE  COMPLEX  FI 

METHOD  HAS  AN  ADVANTAGE  IN  THAT  IT  TENDS  TO  FIND  THE  GLOBAL  FI 
MINIMUM  MORE  FREQUENTLY  THAN  MANY  OTHER  NON-LINEAR  PROGRAM-  FI 
MING  ALGORITHMS.  FI 

FI 

IT  SHOULD  BE  NOTED  THAT  THE  AUXILIARY  VARIABLE  FEATURE  CAN  FI 

ALSO  BE  USED  TO  DEAL  WITH  PROBLEMS  CONTAINING  EQUALITY  CON-  FI 
STRAINTS.  ANY  EQUALITY  CONSTRAINT  IMPLIES  THAT  A  GIVEN  VAR-  FI 
lABLE  IS  NOT  TRULY  INDEPENDENT.  THEREFORE,  IN  GENERAL,  ONE  FI 
VARIABLE  INVOLVED  IN  AN  EQUALITY  CONSTRAINT  CAN  BE  RENUMBERED  FI 
FROM  THE  SET  OF  NV  INDEPENDENT  VARIABLES  AND  ADDED  TO  THE  SET  FI 
OF  NAV  AUXILIARY  VARIABLES.  THIS  USUALLY  INVOLVES  RENUMBERING  FI 
THE  INDEPENDENT  VARIABLES  OF  THE  GIVEN  PROBLEM.  FI 

FI 

SUBROUTINES  AND  FUNCTIONS  REQUIRED  FI 

FI 
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FORTRAN  A1 


CC 

C 

CC 

CC 

C 

C 

C 

C 

C 

C 
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C 

C 

C 

C. 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


FUNCTION  KE(X) 
EVALUATE  CONSTRAINTS. 
VIOLATED,  OR  SET  KE=1 
DIMENSION  X'4) 

XI  =  X(  1  ) 

X2  =  X(2) 

KE  =  0 
X(3)  =  XI 
IF  (X(3) 


SET  KE=0  IF  NO  IMPLICIT  CONSTRAINT  IS 
IF  ANY  IMPLICIT  CONSTRAINT  IS  VIOLATED. 


+  1. 732051 *X2 
LT.  0.  .OR.  X(3) 


X(U)  =  XI /I. 732051  -X2 


.GT.  6.)  GO  TO  1 


FI 

FI 

FI 

FI 

FI 

FI 

FI 

FI 

FI 

FI 

FI 
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R02770 

R02780 
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R02800 
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R02820 
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R02860 


c 

IF  (X(4)  .GE.  0. )  RETURN 

FI 

1  R02870 

CC 

FI 

IR02880 

c 

1  KE  =  1 

FI 

IR02890 

c 

RETURN 

FI 

IR02900 

c 

END 

FI 

IR02910 

CC 

FI 

IR02920 

CC  * 

FI 

IR02930 

c 

FUNCTION  FE(X) 

FI 

IR02940 

c 

DIMENSION  X(4) 

FI 

1  R02950 

CC 

FI 

1  R02960 

CC 

THIS  IS  THE  OBJECTIVE  FUNCTION. 

FI 

1  R02970 

c 

FE=  -(X(2)**3  *(9. -(X( 1 )-3. )**2)/(46. 76538) ) 

FI 

1  R02980 

c 

RETURN 

FI 

1  R02990 

c 

END 

FI 

IR03000 

c 

FI 

IR03010 

c 

METHOD 

FI 

IR03020 

THE  COMPLEX  METHOD  IS 
PLEX  METHOD  OF  LINEAR 
FEASIBLE 
VERTICES 


AN  EXTENSION  AND  ADAPTION  OF  THE  SIM- 
PROGRAMMING,  STARTING  WITH  ANY  ONE 
POINT  IN  N-DIMENSION  SPACE  A  "COMPLEX"  OF  2*N 
IS  CONSTRUCTED  BY  SELECTING  RANDOM  POINTS  WITHIN  THE 


FEASIBLE  REGION.  FOR  THIS  PURPOSE  N  COORDINATES  ARE  FIRST 
RANDOMLY  CHOSEN  WITHIN  THE  SPACE  BOUNDED  BY  EXPLICIT  CON¬ 
STRAINTS.  THIS  DEFINES  A  TRIAL  INITIAL  VERTEX.  IT  IS  THEN 
CHECKED  FOR  POSSIBLE  VIOLATION  OF  IMPLICIT  CONSTRAINTS.  IF 
ONE  OR  MORE  ARE  VIOLATED,  THE  TRIAL  INITIAL  VERTEX  IS  DISPLACEDFI 
HALF  OF  ITS  DISTANCE  FROM  THE  CENTROID  OF  PREVIOUSLY  SELECTED  FI 
initial  vertices.  if  NECESSARY  THIS  DISPLACEMENT  PROCESS  IS 
REPEATED  UNTIL  THE  VERTEX  HAS  BECOME  FEASIBLE.  IF  THIS  FAILS 
TO  HAPPEN  AFTER  5*N+10  DISPLACEMENTS,  THE  SOLUTION  IS  ABAND¬ 
ONED.  AFTER  EACH  VERTEX  IS  ADDED  TO  THE  COMPLEX,  THE  CURRENT 
CENTROID  IS  CHECKED  FOR  FEASIBILITY.  IF  IT  IS  INFEASIBLE, 

THE  LAST  TRIAL  VERTEX  IS  ABANDONED  AND  AN  EFFORT  TO  GENERATE 
AN  ALTERNATIVE  TRIAL  VERTEX  IS  MADE.  IF  5*N+10  VERTICES  ARE 
ABANDONED  CONSECUTIVELY,  THE  SOLUTION  IS  TERMINATED. 


IF  AN  INITIAL  COMPLEX  IS  ESTABLISHED,  THE  BASIC  COMPUTATION 
LOOP  IS  INITIATED.  THESE  INSTRUCTIONS  FIND  THE  CURRENT  WORST 
VERTEX,  THAT  IS,  THE  VERTEX  WITH  THE  LARGEST  CORRESPONDING 
VALUE  FOR  THE  OBJECTIVE  FUNCTION,  AND  REPLACE  THAT  VERTEX  BY 
ITS  OVER-REFLECTION  THROUGH  THE  CENTROID  OF  ALL  OTHER  VERTICES. FI 
(IF  THE  VERTEX  TO  BE  REPLACED  IS  CONSIDERED  AS  A  VECTOR  IN  FI 

N-SPACE,  ITS  OVER-REFLECTION  IS  OPPOSITE  IN  DIRECTION,  IN-  FI 

CREASED  IN  LENGTH  BY  THE  FACTOR  1.3,  AND  COLLI  NEAR  WITH  FI 
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FORTRAN  A1 
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C  ' 
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cc 
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c 
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c 

c 

cc 


VALUES  IF  NONE  ARE  GIVEN.  NOT  VALUES  WHICH  ARE  MAGNITUDES 
ABOVE  OR  BELOW  THE  EXPECTED  SOLUTION.  INPUT  VALUES  ARE 
SLIGHTLY  ALTERED  BY  BOXPLX. 

YMN  THIS  OUTPUT  IS  THE  VALUE  (REAL*4)  OF  THE  OBJECTIVE  FUNC¬ 
TION,  CORRESPONDING  TO  THE  SOLUTION  POINT  OUTPUT  IN  XS. 

lER  INTEGER  ERROR  RETURN.  TO  BE  INTERROGATED  UPON  RETURN 
.  FROM  BOXPLX.  I ER  WILL  BE  ONE  OF  THE  FOLLOWING: 

=-l  CANNOT  FIND  FEASIBLE  VERTEX  OR  FEASIBLE  CENTROID 
AT  THE  START  OR  A  RESTART  (SEE  'METHOD'  BELOW). 

=0  FUNCTION  VALUE  UNCHANGED  FOR  'N'  TRIALS.  (WHERE 
N=6*NV+10)  THIS  IS  THE  NORMAL  RETURN  PARAMETER. 

=1  CANNOT  DEVELOP. FEASIBLE  VERTEX. 

=2  CANNOT  DEVELOP  A  NO -LONGER -WORST  VERTEX. 

=3  LIMIT  ON  TRIALS  REACHED.  ( NTA  EXCEEDED) 

NOTE:  VALID  RESULTS  MAY  BE  RETURNED  IN  ANY  OF  THE 
ABOVE  CASES. 

EXAMPLE  OF  USAGE 

THIS  EXAMPLE  MINIMIZES  THE  OBJECTIVE  FUNCTION  SHOWN  IN  THE 
EXTERNAL  FUNCTION  FE(X).  THERE  ARE  TWO  INDEPENDENT  VAR¬ 
IABLES  X(1)  k  X(2).  AND  TWO  IMPLICIT  CONSTRAINT  FUNCTIONS 
X(3)  Se  X(4)  WHICH  ARE  EVALUATED  AS  AUXILIARY  VARIABLES  (SEE 
EXTERNAL  FUNCTION  KE(X)  ). 

DIMENSION  XS(4),XU(2),XL(2) 

STARTING  GUESS 
XS( 1 )  =  1.0 
XS(2)  =  0.5 
UPPER  LIMITS 
XU(1)  =  6.0 
XU(2)  =  6.0 
LOWER  LIMITS 
XL(1 )  =  0.0 
XL(2)  =  0.0 

R  =  9./13. 

NTA  =  5000 
NPR  =  50 
NAV  =  2 
NV  =  2 
IP  =  0 

CALL  BOXPLX  ( NV, NAV, NPR, NTA, R,XS, I P, XU, XL, YMN, I ER ) 

WRITE(6, 1 )  ( (XS( I ), I =1,4), YMN, lER) 

1  FORMAT  (////,'  THE  POINT  IS  LOCATED  AT  (XS(I)=)  ' , 4( El  3 . 7, 5X ) , 
1//,'  AND  THE  FUNCTION  VALUE  IS  ',E13.7,'  I ER  =  ',15) 

STOP 

END 
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